Moinsen
und wiedermal ich ^^
Diesmal habe cih das Problem das ich beim schließen meines Programmes folgenden Fehler bekomme:
http://img372.imageshack.us/img372/2...blage01kd4.jpg
Der Fehler tritt immer dann auf wenn ich im Programm meine Funktion in einem Thread starte. Starte ich die Funktion ohne Thread kommt kein Fehler.
Der Fehler kommt auch nur dann wenn ich folgenden Bereich drin lasse (kommentiere ich ihn aus geht es wieder).
Delphi-Quellcode:
for iiii := 0 to ListBox4.Count -1 do
begin
Form1.Memo1.Lines.Clear;
Form1.Memo1.Lines.Text := '';
ListBox3.Items.Clear;
ListBox2.Items.Clear;
Filename := ListBox4.Items.Strings[iiii];
Memo1.Lines.LoadFromFile('Datanorm\'+Filename);
for iii := 0 to Memo1.Lines.Count-1 do
begin
datanormsatz := TStringList.Create;
line := Memo1.Lines[iii];
Split(';',line,datanormsatz);
if datanormsatz[0] = 'A' then
ListBox3.Items.Add(line);
if datanormsatz[0] = 'T' then
ListBox2.Items.Add(line);
datanormsatz.free;
end;
Label5.Caption := IntToStr(Listbox3.Count-1);
Memo2.Lines.Add('Beginne Import von: '+ Filename);
WriteLog('Beginne Import von: '+ Filename);
//db_import;
end;
Hoffe ihr seht wo mein Fehler liegt. kann euch auch gerne noch den Rest des Codes zeigen.