Forum: Sonstige Fragen zu Delphi
Delphi
by MisterNiceGuy,
1. Okt 2005
Ja also schwer zu erklären ;) Hier ist auf jedenfall die Lösung, das passende Programm gibts später nachgeliefert.
Hier erstmal der Algorhytmus:
var mompos:array of integer;
laenge:integer;
i,j,k:integer;
pw:string;
begin
laenge := 1;
Forum: Sonstige Fragen zu Delphi
Delphi
by MisterNiceGuy,
1. Okt 2005
Hi ich versuche gerade einen Algorhytmus zu schreiben, der folgendes tun soll:
-> Beginnen mit den ersten Buchstaben aus einem Memo.
-> Falls diser Buchstabe nicht der letzte aus dem Memo ist, den nächsten buchstaben aus dem Memo nehmen.
-> Falls es schon der letzte ist, einen neuen Buchstaben in den String einfügen.
-> Solange, bis ein String gefunden wurde.
while panel1.Caption...