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

[Mojito]

Wird die typisierte Datei nicht mit:

while not eof(tempFile) do
eingelesen?

Bekomme für das  write(tempTypeToText,tempText); immer noch den Fehler:
[DCC Fehler] UTxt.pas(128): E2054 Ungültiger Typ in Write/Writeln-Anweisung

Muss ich Newfile vielleicht auch erstmal mit AssignFile öffnen oder so?

[DeddyH]

Nö, einfach nur lesen, was andere schreiben oder alternativ in die Hilfe schauen, welche Parameter von welchem Typ da erwartet werden.

[Furtbichler]

Der gepostete Code kann nicht funktionieren.
Du willst also eine Prozedur schreiben, die eine typisierte in eine Textdatei umwandelt.
So geht das

Code:

Öffne die typisierte Quellatei (A) zum Lesen.
Öffne die (Ziel-)Textdatei (B) zum schreiben. Willst Du anhängen oder überschreiben?
Dann:
Solange A noch nicht am Ende angekommen ist:
  Lies einen Datensatz aus A ein.
  Konvertiere den Datensatz als String und speichere ihn in der Variablen SA.
  Schreibe SA in B bzw. hänge ans Ende an
...

Schließe die Datei A
Schließe die Datei B

So, und nun solltest Du das mit ein wenig Energie und Google selbst hinbekommen können.

[Mojito]

So, es hat geklappt danke danke.