sorichtig habe ich nicht verstanden was du bezweckst aber ich hab das mal mit kommentaren interpretiert.... ichdenke mal das mit dem next char was nich so passt, aber die funktion kenn ich nicht, ich sehe auch nicht wie das naechste zeichen aus dem memo genommen wird, sondern nur das naechste zeichen aus pw , das ja die caption des panels erhaelt
Delphi-Quellcode:
while panel1.Caption <> 'aa' do // solange panel caption nicht aa ist
begin
pw := panel1.Caption; // pw = panel caption
for i:=length(pw) downto 1 do // fuer i = laenge pw runter bis 1
begin
if pw[i] <> memo1.Text[length(memo1.Text)] then // wenn zeichen aus pw an stelle i nicht letztes zeichen aus memo text dann
pw[i] := next_char(pw[i]) // zeichen aus pw an stelle i = next_char??? funktion kenn ich nicht i = downto 1 haut das hin??? reicht da nicht einfach ein continue?
else if i = 1 then // wenn i = eins
pw := pw+memo1.Text[1]; // pw = pw und erstes zeichen aus memo
end;
panel1.Caption := pw; // panel caption = pw
end;