Hallo,
ich möchte Daten im *.csv-Format speichern. Wenn ich meine Werte aber aus einer RadioGroup nehme, habe ich keinen anderen Weg gefunden, als die Daten erst in ein Edit.text zu schicken und sie dann zu übergeben. Gibt es einen Weg, den selektierten Eintrag direkt zur Writeln zu schicken oder ist mein Ansatz falsch und könnt Ihr mir eine bessere Lösung vorschlagen?
Viele Grüsse, moperswings
Delphi-Quellcode:
var
f: Textfile;
feld1: string;
feld2: string;
feld3: string;
feld4: string;
begin
AssignFile(f,'c:\daten.csv');
{$i-}
Rewrite(f);
{$i+}
if IOResult <> 0 then begin
Showmessage('Fehler');
Exit
end;
feld1 := Edit1.Text;
feld2 := Edit2.Text;
feld3 := ComboBox1.text;
feld4 := Edit3.text;
Case RadioGroup1.ItemIndex of
0: Edit3.Text := 'Hund';
1: Edit3.Text := 'Katze';
2: Edit3.Text := 'Maus';
end;
Writeln(f,Edit1.text + ';' + Edit2.Text + ';' +
ComboBox1.text + ';' + Edit3.text + ';');
Closefile(f);
Form1.Close;
end;