Hallo Leute,
ich würde gerne mal wissen, ob ich einen "Writeln"-Aufruf für verschiedene Dateien verwenden kann.
Ich habe das mal so probiert:
Delphi-Quellcode:
{$I-}
if FileExists(DateiName_1) then
begin
Assign (Datei_1,DateiName_1);
Append (Datei_1);
end else
begin
Assign (Datei_1,DateiName_1);
Rewrite (Datei_1);
end;
if FileExists(DateiName_2) then
begin
Assign (Datei_2,DateiName_2);
Append (Datei_2);
end else
begin
Assign (Datei_2,DateiName_2);
Rewrite (Datei_2);
end;
if ProfilTyp = PTyp_1 then
begin
TempDatei := Datei_1;
end;
if ProfilTyp = PTyp_2 then
begin
TempDatei := Datei_2;
end;
writeln(TempDatei,'Text');
try
close(Datei_1);
close(Datei_2);
finally
end;
{$I+}
TempDatei, Datei_1 und Datei_2 sind vom Typ "Text".
Beim Compilierversuch bekomme ich bei der Zuweisung "TempDatei := Datei_1;" die Fehlermeldung: "[DCC Fehler] BerechnA26Task.pas: E2015 Operator ist auf diesen Operandentyp nicht anwendbar"
Kann mir jemand sagen warum das so ist und wie ich es schaffe, dass es funktionsiert?!?
Vielen Dank schon einmal
Grüße Catti