Speichern einer Textdatei

[Mojito]

Hall liebe Delphi Freunde,

Ich möchte eine typisierte Datei in eine Textdatei konvertieren und dann abspeichern. Leider ist mir das nicht geglückt. Und zwar erhalteich bei tempTypetoText:=entryToStr(NewFIle) die Fhelermeldung: Inkompatible Typen "TAdresse" und "Text". Die Funktion TypedToStr sieht wie folgt aus:

function TypedToStr(entry: TAdresse): string; NEWFile ist vom Typ file of TAdresse. Hier der ganze Code der Prozedur

Delphi-Quellcode:

procedure ConvertIntoText(fileName: string);
var
  tempText:Text;
  tempTypetoText:string;
begin
  AssignFile(tempText,filename+'.txt');     // Öffnen der zu speichernden Datei
  Rewrite(tempText);
  tempTypetoText:=typedToStr(NewFIle);
  write(tempTypeToText,tempText);
end;

Hat einer eine Rat?

Vielen Dank!

[DeddyH]

Es wäre wohl sinniger gewesen, den Code von tempTypeToText zu posten.

[Mojito]

Ups da hatte ich mich verschrieben, es bezog sich auf die TypedToStr.Hier ein Auszug, die weiteren case-Anweisungen sind ähnlich

Delphi-Quellcode:

function TypedToStr(Vtyped: TAdresse): string;
begin
  TypedyToStr := '';
  case Vtyped.addressType of
    House:
      TypedToStr := 'H,' + Vtyped.street + ',' + Vtyped.city + ',' + inttostr(Vtyped.number);

[DeddyH]

Das sieht eigentlich OK aus, allerdings hast Du beim write in Deinem zuerst geposteten Code wohl die Parameter verwechselt.

[Furtbichler]

Außerdem würde ich mit Writeln die einzelnen Bestandteile trennen, sowie die Datei noch mit CloseFile ordentlich abschließen

[p80286]

Neben dem fehlenden closefile sollte da eigentlich irgendwo eine Schleife existieren, in der die typisierte Datei eingelesen wird. Das writeln ist nicht unbedingt notwendig wenn bei der Konvertierung ein x0D0A mitgegeben wird.
Aber die paar Source-Häppchen lassen eigentlich keine vernünftige Aussage zu.
(übrigens würde ich als Ersatzformat für eine typisierte Datei eher XML oder ein ähnliches Format bevorzugen)

Gruß
K-H