64-Bit für TextFile / File of xxx

[stho]

irgendwas ist hier noch faul
vielleicht ein benutzerfehler von mir oder ein bug....

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);

  Function GetString : String;
  begin
      result := 'Testtesttest...';
  end;

var
  tf : TextFile;
  sLine : String;
  aFile : STring;
begin
  aFile := 'C:\moep.txt';;

  try
    AssignFile64 (tf, aFile);
    Append(tf);
    while true do
    begin
      sLine := GetString;
      WriteLn(tf, sLine);
      sleep(10);
    end;
  finally
    CloseFile(tf);
  end;
end;

ist jetzt nicht der ÜBER-code, sollte aber nur zum testen sein
wie erkennbar sollte das Prgramm in einer Dauerschleife "Testtesttest..." zeilenweise in eine Datei schreiben.
nun, in der Datei kommt aber nur
"@ý BE hAE dAE àAE C:\moep.txt " aus...

[stho]

DOPPELPOST:
Sorry aber ich hab vergessen den Screenshot an zu hängen

[himitsu]

Zitat:

Sorry aber ich hab vergesse

Dafür gibt es notfalls einen [edit]-Button

Joar, da gab es einen Unterschied im ReadFile/WriteFile-Aufruf.

Ich hatte damals eine Interfaces mit einem Pointer-Parameter im Einsatz, wärend in Delphi aktuell nur eine Variante mit einem untypisiertem Var-Parameter existiert, welche natürlich einen dereferenzierten Pointer benötigt.

Gut, dabei hab ich auch gleich mal die Datei etwas aufgeräumt und Fehler behoben.
> Wer konnte den Ahnen, daß Codegear einfach mal so ein AnsiChar auf WideChar umändert ... war ja schließlich niemals ein veränderliches Char


Hier also eine Version, welche auch die kranken Änderungen in Delphi 2009+ beachtet: