Guten Morgen,
Mich würde brennend interessieren wie ich eine variable die im laufe des Programms festgelegt wird,
anschließend an den Dateinamen einer neu zu erstellenden txt Datei anhängen kann.
Die Vorgeschichte davon ist, dass ich zurzeit einen Vokabeltrainer programmiere. Nun legt man beim Anlegen neuer Vokabeln fest ob es sich um eine Vokabel der Kategorie Easy, Average, Hard oder Unusual handelt (Radio Button).
Je nachdem was der Nutzer dann auswählt wird überprüft ob eine txt datei mit dem einer der vier Bezeichnungen .txt schon existiert, wenn nicht soll es halt neu angelegt werden.
Hier der Code zum anlegen, die string variable in der die Bezeichnung zugeordnet wird (Easy, Average, Hard oder Unusual) heißt rb und ist private deklariert.
Delphi-Quellcode:
procedure TfrmInsert.btnSaveClick(Sender: TObject);
var
txt: Textfile;
sDir: String;
begin
sDir := ExtractFilePath(Application.Exename)+'Data\';
if ((rbEasy.Checked) or (rbAverage.Checked) or (rbHard.Checked) or (rbUnusual.Checked)) then
if ((edtEnglish.Text <> '') and (edtGerman.Text <> '')) then
begin
if not DirectoryExists(sDir) then
ForceDirectories(sDir);
if not FileExists((sDir)+ 'Vocabulary.txt') then
begin
extractFilePath(sDir);
assignFile(txt, sDir + 'Vocabulary.txt');
rewrite(txt);
CloseFile(txt);
end;
end;
end;
Wie häng ich die Bezeichnung ans 'Vocabulary.txt' an?
Danke im vorraus.