Mal im Debugger gefragt, ob diese Bedingung überhaupt erfüllt ist?
if time = 0
Time ist übrigens die akuelle Uhrzeit, es sei denn, es gibt eine globale Variabel gleichen Namens, was aber äußerst ungünstig wäre. Bitte bennne die Variabel Time um, um Fehler durch Namenskonflikte ausschließen zu können.
Delphi-Quellcode:
Memo1.Clear;
if time = 0 then
begin
Timer1.Enable := false;
Memo1.Lines.LoadFromFile('dateiname');
Memo2.Clear;
for i := 0 to Memo1.Lines.Count-1 do begin
if (Pos('#Hier_nicht_mehr', Memo1.Lines[i]) <> 0) and (r = 0) then
r := 1;
if r = 0 then
Memo2.Lines.Add(Memo1.Lines[i]);
end;
end;
Wenn bei dem von mir geänderten Quelltext das Memo1 immer leer ist, dann ist die Bedingung time = 0 nicht erfüllt.
Der Fehler liegt höchstwahrscheinlich nicht in der For-Schleife, sondern entweder im Timerhandling oder in der Programmlogik des Timerereignisses irgendwo vor Timer1.Enable := false;