file of char delphi7 geht nicht

[Bernhard Geyer]

Zitat von lecomte:

assignfile(toc,'inbox.toc');

Probiers mal mit einer Angabe mit kompletten Pfad. Wer weiß welchen aktuellen Anwendungspfad deine Anwendung gerade hat.

[Uwe Raabe]

Ist ja vielleicht nur falsch abgetippt:

assignfile(toc,'inbox.toc');
reset(t);

[lecomte]

danke für die hilfeversuche.
in der tat gibt es bei dem von mir vorgestellten programmtext einen tippfehler, der aber im tatsächlichen programm nicht vorhanden ist: statt "reset(t)" gehört "reset(toc)".

die datei "inbox.toc" wird von keinem anderen programm verwendet. sie ist eine kopie der tatsächlichen eudora-inbox.
"inbox.toc" lässt sich auch problemlos lesen und in einen anderen file kopieren - zeichen für zeichen. die zeichen lassen sich auch alle in einen string kopieren.

Bloss:
dort, wo dann in turbo pascal tatsächlich interpretierbare werte zu finden sind, stehen in delphi nur zeichen, die wie ein kleines quadrat aussehen.

meine frage ist daher nach wie vor: gibt es beim lesen eines file of char einen relevanten unterschied zwischen dem, was ein DOS-basiertes programm (turbo pascal) und ein windows porgramm (delphi7) mit ein und dem gleichen zeichen anstellt??

[DeddyH]

TP verwendet ASCII, Delphi 7 aber Ansi. Versuch doch einmal, Deinen String mit OEMToCharBuff in Ansi umzuwandeln.

[edit] Ein Test mit Delphi 2007 ohne großartige Fehlerbehandlung (die Datei ist ASCII-kodiert):

Delphi-Quellcode:

var
  s: Ansistring;
  f: file of AnsiChar;
  c: AnsiChar;
begin
  AssignFile(f, 'C:\temp\Gnödelgnüdel.txt');
  {$I-}
  Reset(f);
  {$I+}
  if IOResult = 0 then
    begin
      while not EOF(f) do
        begin
          read(f, c);
          s := s + c;
        end;
      CloseFile(f);
    end;
  ShowMessage(s);  //Gn”delgn�del
  OEMToCharBuffA(PAnsiChar(s), PAnsiChar(s), Length(s));
  ShowMessage(s);  //Gnödelgnüdel
end;

Ich verwende OEMToCharBuff, weil bei OEMToChar eine Sicherheitswarnung im MSDN steht, also besser nicht benutzen. [/edit]

[lecomte]

danke für die hilfe.
das programm, wie du es schreibst, funktioniert tadellos -> keine fehlermeldung.

das ändert aber für delphi überhaupt nix:
turbo pascal und notepad zeigen folgendes an:

1 À\ï¾TìBA  P P 5Ÿ
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ  Œ Ô:ç
 > =^äM
 06:19 31.05.2011

Delphi aber zeigt, egal ob ich die datei als stream lese, als file of char lese, in einen string umwandle und in eine datei schreibe oder anzeige, delphi also zeigt:

" "
(ohne leerzeichen).

Ist das erklärbar?
Oder der beweis dafür, dass es außerirdische gibt?
Wo liegt MEIN fehler?