Hallo, vielen Dank für Eure Antworten.
Allerdings habe ich noch nie mit Thread's gearbeitet.
Vielleicht kann mir jemand mit Hilfe von Delphi-Code (Pseudo-Code) an Hand eines Beispiels
die Vorgehensweise erklären.
Danke Wendelin
mein Code
Delphi-Quellcode:
procedure TMyPGN.SpeedButton7Click(Sender: TObject);
VAR
MyFileName,PathName,LeerZ : String;
Zahl_ENDE : Integer;
begin
LeerZ := '';
(* ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ *)
OpenDialog2.FileName := g_ArbeitsVerz ;
(* ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ *)
OpenDialog2.InitialDir := g_ArbeitsVerz ;
PathName := g_ArbeitsVerz ;
MyFileName := 'Ihre Eingabe';
OpenDialog1.FileName := PathName + MyFileName;
if OpenDialog1.Execute then
begin
Memo1.Clear;
MyStringListA.LoadFromFile(OpenDialog1.FileName);
end;
Memo1.Lines.Text := MyStringListA.Text;
If Trim(MyStringListA.Strings[0]) <> '' then // ev. Leerzeile am Anfang !!
begin // einfügen
Memo1.Clear;
MyStringListA.Insert(0,LeerZ);
Memo1.Lines.Text := MyStringListA.Text;
end;
Zahl_ENDE := MyStringListA.Count;
If Trim(MyStringListA.Strings[Zahl_ENDE - 1]) <> '' then
begin // ev. Leerzeile am ENDE !!
Memo1.Clear; // einfügen
MyStringListA.Insert(Zahl_ENDE,LeerZ);
Memo1.Lines.Text := MyStringListA.Text;
end;
Panel5.Caption := 'Zeilen :' + IntToStr(Memo1.Lines.Count); // Zahl der Zeilen anzeigen
AusgabeAnzahlPartienAlt;
Gewinn_Verlust_Remis_NEU;