Hallo

Ich habe folgendes Problem:
{TODO: Auslagern vom Dateien-Öffnen} Ehemaliger Quellcode:

zusammenfalten · markieren

Delphi-Quellcode:

 
Begin
  AssignFile (tempeingabe, eingabedateiname);
  Reset (tempeingabe);
  if IOResult <> 0 then
    writeln ('Fehler beim Öffnen der Quelldatei!')
  else
  begin
    AssignFile (tempausgabe, ausgabedateiname);
    Rewrite (tempausgabe);
    if IOResult <> 0 then
      writeln ('Fehler beim Öffnen der Zieldatei!')
    else
    begin
      AssignFile (tempueber, uebersetzungsdateiname);
      Reset (tempueber);
      if IOResult <> 0 then
        writeln ('Fehler beim Öffnen der Übersetzungstabelle!')
    .....
    ..... usw.

Das muesste ich jedoch nun in eine Funktion auslagern...
Hier mein Denkansatz, jedoch nicht compilierfähig. Kann keine Textfile übergeben. Hat jemand evtl. eine Idee?

zusammenfalten · markieren

Delphi-Quellcode:

 
function dateiLaden(dateiname:string;variablenname:Textfile; Art:byte):boolean;
begin
  AssignFile (variablenname, dateiname);
  case Art of
  1 : Reset (variablenname);
  2 : Rewrite (variablenname);
  end;
  if IOResult <> 0 then //wenn nicht erfolgreich
    writeln ('Fehler beim Laden der Datei: '+dateiname);
  dateiLaden:= IOResult=0;
end;

versuch mal mit
function dateiLaden(dateiname: string; var variablenname: Textfile; Art: byte):boolean;

Super. Scheint mir zu funktionieren

Vielen Dank für die schnelle Antwort.