Hallo -

ich versuche, eine eudora-mailbox ("inbox.toc") als file of char zu lesen.
die chars 18 bis 31 beinhalten das datum.
das funktioniert mit turbo pascal 7, ergibt aber in delphi nur laufzeitfehler.

gibt es da einen unterschied in der file of char behandlung zwischen turbo pascal 7 und delphi7SE?


der relevante programmteil sieht wie folgt aus:

---------------------------------------------------------

var st,mess:string;
toc:file of char;
ch:char;
fehler,tag,monat,jahr:integer;

...........
mess:='';
assignfile(toc,'inbox.toc');
reset(t);
for a:=1 to 218 do
begin
read(toc,ch);
mess:=mess+ch;
end;
st:=copy(mess,19,31);
st:=copy(st,1,pos(' ',st)-1);
val(copy(st,1,2),tag,fehler);
val(copy(st,4,2),monat,fehler);
val(copy(st,7,4),jahr,fehler);
..............


---------------------------------------------------------

Gibt's einen Tipp?
Danke!

Zitat:

ergibt aber in delphi nur laufzeitfehler.

Der da wäre?

Nimm einfach einen TFileStream, das ist mit Delphi sinnvoller und einfacher.

Zitat von jbg:

Zitat:

ergibt aber in delphi nur laufzeitfehler.

Der da wäre?

Sorry - ich hab den Laufzeitfehler in allen Varianten ohnehin gegoogelt - ohne Ergebnis. Hier ist er :
Access violation ad address 0045393B in module 'eudorap.exe'. Write of address 00088A3C

Dann lass Dir doch zwischendurch mal Length(mess) und Length(st) ausgeben, ich möchte wetten, dass sie kürzer sind, als Du glaubst. Du versuchst somit hinter dem String zu operieren.

Es gibt allerdings noch einen großen Unterschied zwischen Turbo Pascal und Delphi: Turbo Pascal verwendet sogenannte ShortStrings, denen man bei der Deklaration eine maximale Länge mitgibt, z.B. string[80] . Läßt man diese Längenangabe weg string , wird dort implizit 255 angenommen. Die Typangabe string in Delphi bedeutet aber einen null-terminierten String, dessen Länge durch den ersten #0 Char bestimmt wird. Damit entspricht das Ergebnis des ersten Copy-Befehls mit aller Wahrscheinlichkeit nicht den Erwartungen.

Sollte es tatsächlich daran liegen, wäre eine Änderung der Zeile
var st,mess:string;
in
var st,mess:string[255];
mal einen Versuch wert.

Zitat:

in
var st,mess:string[255];
mal einen Versuch wert.

Das mit der Länge (bis zu 2 GB bei Delphi) war mir ohnehin klar. Danke für den Hinweis.

Danke für Deinen Kommentar.

nein, mess ist 218 lang, wie geplant, und st ist 31 lang, wie geplant.

ich habe inzwischen dein programm laufen lassen (mit dem filestream).
Ergebnis: eine Riesenmenge Leerzeichen. Showmessage ist - geschätzte, weil nicht sichtbar machbare - 40 bildschirmseiten groß .

Summa summarum: kann es an Windows XP liegen?
Sollte ich mir einen Apple kaufen?
Soll ich meine Unix-Kenntnisse auffrischen?
Kennt jemand außer mir VMS?
UCSD?
Android lernen?
Oder einfach resignieren und PacMan spielen?

Jedenfalls danke für die Hilfe....

Zitat von lecomte:

Kennt jemand außer mir VMS?
UCSD?

Aber sicher!

Du könntest aber auch mal die Datei als ZIP hier hochladen, damit wir mit denselben Karten spielen.

Zitat von lecomte:

Soll ich meine Unix-Kenntnisse auffrischen?

Kann nie schaden

Dann fällt die Nutzung von GNU, BSD und Solaris auch einfacher