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.
Delphi-Quellcode:
while panel1.Caption <> 'aa' do
begin
pw := panel1.Caption;
for i:=length(pw) downto 1 do
begin
if pw[i] <> memo1.Text[length(memo1.Text)] then
pw[i] := next_char(pw[i])
else if i = 1 then
pw := pw+memo1.Text[1];
end;
panel1.Caption := pw;
end;
Das ist der Code, soweit ich den schon geschrieben habe. Aber es funktioniert irgendwie nicht so recht.
Jetzt meine Frage an euch, hat einer einen solchen Algorhytmus oder findet einen Fehler in dem Code?
Hoffe ihr könnt mir helfen!!