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...

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 eini...

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; repea...

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...

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 := sl...

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-F...

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. firebug.png dnt=1 => Do Not Track (dt. ...

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 ...

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 überpr...

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 BauglirWebSocke...