Hallo,
der folgende Code funktioniert. Ich möchte nur, dass Ihn mal jemand kurz gegenliest!
In ein Formular sollen - in diesem Demo-Beispiel - aus Textfeldern und Comboboxen Werte in die Datei datensatz.csv gespeichert werden.
Ist das so OK - und vor allem SICHER? Gibt´s Verbesserungsvorschläge?
Viele Grüsse, moperswings
Delphi-Quellcode:
// Setzt die Eingaben alle zurück
procedure TForm1.resetClick(Sender: TObject);
begin
edit1.Text := '';
combobox1.ItemIndex := -1;
end;
// speichert die Werte in eine Textdatei
procedure TForm1.speichernClick(Sender: TObject);
var
f: Textfile;
wert1: string;
wert2: string;
filename: string;
begin
try
filename := 'datensatz.csv';
AssignFile(f, filename);
{$i-}
append(f);
{$i+}
if IOResult <> 0 then begin
ShowMessage('Fehler');
Exit;
end;
wert1 := Edit1.Text;
wert2 := ComboBox1.Text;
Writeln(f, Edit1.Text + ';' + ComboBox1.Text + ';' );
Closefile(f);
except
showmessage('Ein Fehler ist aufgetreten');
end;
end;