Deutsches Lazarusforum

ich vermute mal Du willst was ganz anderes als was Du machst!

found := false;
for i2 := 1 to length(database) do
begin
if (Database[i2].Wort1 = wort1) and (Database[i2].wort2 = wort2) and (Database[i2].folgewort = folgewort) then
begin
inc(database[i2].Anzahl);
found := true;
break;
end;
end ...

Ja, aber Bowfish verschlüsselt!

Dann könntest Du dich selbst nicht mehr anmelden, so häufig wie die "bösen" Bots auf manchen Seiten vorbei kommen.
Die größte Sicherheitslücke ist allerdings die unverschlüsselte Übertragung, das sollte nie vorkommen.
Eigentlich ist es am Besten man überträgt kein Passwort, da gibt es einige ...

Mitbewerber, ganz bestimmt keine Konkurrenz!

ungefähr so
type
TIntArray: Array of Integer;
function inArray(a: TIntArray; o: Integer): boolean;
var i: Integer;
begin
result := false;
for i:=0 to length(a)-1 do
if a[i]=o then
begin
result := true;
break;
end;
end;

var
a: TIntArray;
i, o: Integer;
begin
i := 0;
randomize ...

uses Variants, ComObj, ActiveX;
...
var
Word: Variant;
begin
try
Word := GetActiveOleObject('Word.Application');
ShowMessage('Word is open!');
Word.Quit;
Word := Unassigned;
except
ShowMessage('Word not open !');
Exit;
end;
end;
Unter Umständen laufen allerdings auch mehrere Instanzen ...

Free Pascal (FCL) hat auch eine Socket Komponente einfach uses sockets (/fpc/packages/rtl-extra) und für ssl auch noch uses ssockets (/fpc/packages/fcl-net/) für meinen eigenen Webserver reichen die

SATA Express
https://en.wikipedia.org/wiki/SATA_Express

Ich würde die Text-Datei in eine StringList laden und mit Random eine Zeile auslesen.


var
slZeilen: TStringList;
iZeile: integer;
sZeile: string;
begin
Randomize;
slZeilen := TStringList.Create;
slZeilen.LoadFromFile('deineDatei.txt');
iZeile := Random(slZeilen.Count);
sZeile := slZeilen ...

SchwabenTom hat geschrieben: Was ich aber vermisse, ist daß der Umgekehrte Weg nun nicht mehr möglich ist. D.h. bspw. aus dem Explorer etwas ins Startmenü einfach über Drag&Drop hineinzuverknüpfen habe ich nicht hinbekommen.

Rechtsklick auf Programm 'An "Start" anheften'

Dein Code liest sich so:

Du möchtest das Memo1 ab der 2.Zeile, Zeile für Zeile durch gehen und wenn du am Ende einer Zeile die Zeichenkette 'UWH' findest, füllst du die Variable c mit dem ermittelten Integer-Wert aus der 2.Zeile des Memo2, egal ob c gesetzt wurde schreibst Du den Wert in das edit3 ...

Ich habe z .b. Firebug Ich habe Werkzeuge ein ausblenden. Aber ein Schraubenzieher Icon sehe ich nicht.
Der Werkzeugkasten sieht Interessant aus. Die Konsole nutzte ich bereits, da man sonst keine Fehlermeldungen enthält.
Firebug kann das auch, im Reiter Net. :oops:
firebug.png
dnt=1 => Do Not ...

Am Einfachsten schaust du dir einfach die Kommunikation (Client-Server) an.
Die "developer tools" (Schraubenschlüssel) würde ich mir als Entwickler immer griffbereit in die Toolbar ziehen, zu beginn findest du sie im Hamburger-Menü (drei horizontale Balken).
developer_tools.png
Sonst gibt es auch ...

Der Fehler in der Komponente liegt wohl darin das in der Funktion TWebSocketServer.CreateServerConnection der Request Header Wert von Sec-WebSocket-Extensions ausgelesen wird und im Response Header dieser Wert zurückgeschickt wird. Ich habe allerdings im Code keine Stelle gefunden wo der Wert ...

Von wem ist denn die Unit? Diese eine Zeile Code bringt mich schon fast zum heulen, das sieht echt furchbar aus. Wozu gibt es Konstanten, die ein Zeilenende definieren?
Welche Konstante würdest Du denn nutzen?

Vom wem die Unit genau ist weiß ich nicht. Die Unit nennt sich jedenfalls ...