das ist der code zum speichern
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
//Ausgabe - Gesamt Schläge incl. Zu-/Abzüge und Gesamt Drops
//if Table1.State <> dsEdit then
// table1.Edit;
Table1.Append;
end;
der cod der beim öffnen des forms ausgeführt wir:
Code:
procedure TForm1.FormCreate(Sender: TObject);
begin
//Tabelle öffnen
table1.Open;
//Namen aus Datei einlesen
with Name do
begin
Items.LoadFromFile(extractfilepath(application.exename)+ 'spieler.txt');
end;
//Orte aus Datei einlesen
with Ort do
begin
Items.LoadFromFile(extractfilepath(application.exename)+ 'plaetze.txt');
end;
end;