Moin Moin,
bekomme genau die selbe Fehlermeldung, nur weiß ich nicht warum da ich nichts male usw
das ganze läuft in einem thread
Delphi-Quellcode:
type
Thread_Nr_01 = class(TThread)
procedure Hauptprogramm;
procedure Execute; override;
end;
procedure Thread_Nr_01.Execute;
begin
while not Terminated do begin
Hauptprogramm
end;
end;
procedure Thread_Nr_01.Hauptprogramm;
var
data : TIdMultiPartFormDataStream;
dieurl, line : string;
neueinlesen, iRow : Integer;
dateistream : TFilestream;
begin
neueinlesen := 1;
// checken ob schon mal runtergeladen wurde
if FileExists('artikel_shop_' + Form1.StringGrid1.Cells[2,Form1.stringgrid1.row] + '.txt') then begin
if MessageDlg('Die Liste wurde bereits am '
+ DateToStr(FileDateToDateTime(FileAge('artikel_shop_' + Form1.StringGrid1.Cells[2,Form1.stringgrid1.row] + '.txt')))
+ ' um '
+ TimeToStr(FileDateToDateTime(FileAge('artikel_shop_' + Form1.StringGrid1.Cells[2,Form1.stringgrid1.row] + '.txt')))
+ ' Uhr vom Server geladen. Möchten Sie die Liste vom Server neu einlesen ?', mtConfirmation, [mbYes,mbNo],0) = IDNo then
begin
neueinlesen := 0;
end;
end;
........ code geht noch weiter ......
der debugger bleibt bei dieser zeile stehen:
if MessageDlg('Die Liste wurde bereits am '
nur warum ?