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:

zusammenfalten · markieren

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

Also wenn es denn unbedingt mit Writeln usw. sein muss (warum?), fallen mir z.B. Pointer ein:

markieren

Delphi-Quellcode:

var
  a: TextFile;
  b: ^TextFile;
begin
  b := @a;
  AssignFile(b^, '...');

Man kann TextFile als var Parameter übergeben.

Richtig, wenn man es an eine andere Prozedur übergeben möchte. Innerhalb einer Funktion geht die Zuweisung aber so nicht.

Eine stärkere Kapselung (und vielleicht auch ein anderer Datentyp) wäre aber vielleicht sowieso sinnvoll.

Sehe ich auch so, da er abhängig vom Profiltyp eh unterschiedliche Datensätze hat.

Was soll denn eigentlich der Sinn dahinter sein? Übrigens ist die Kombination der $I -Direktrive in Verbindung mit dem try-finally-Block IMHO "kreativ", um es mal so auszudrücken.