Hi! Ich habe ein - sicherlich ganz einfach zu lösendes- Problem...
Hier ist ein Ausschnitt aus einem Code:
Delphi-Quellcode:
begin
Textoutput.Clear;
b:=0;
a:=length(textinput.Lines[0]);
if a>0 then
begin
repeat
begin
s1:= Textinput.lines[b];
s2:= Bearbeitung(s1);
Textoutput.Lines[b]:= s2;
b:=b+1;
a:= length(textinput.Lines[b]);
showmessage(s1+' '+s2);
end;
until a=0;
end
else showmessage('Bitte Text eingeben!');
end;
Der Code liest -Zeile für Zeile- aus textinput ein, bearbeitet ihn mit "Bearbeitung" und gibt ihn in textoutput aus, textinput und textoutput sind TMemos. "Showmessage..." ist nur zum testen!
DAS PROBLEM:
Die erste Zeile läuft einwandfrei durch, die Zweite aber nur bis "s2:= Bearbeitung...", also s2 wird noch richtig bestimmt, aber eigentlich sollte s2 dann ja in der 2. Zeile ausgegeben werden, aber das wird es leider nicht
Weiss jemand woran das liegt??
P.S.: Bin eher Einsteiger, also wundert euch nicht über solche Fragen
