textdatei zeichen für zeichen einlesen

[mikeslash]

Hallo,

ich habe eine Textdatei mit den Dezimalstellen von Pi und möchte diese Ziffer für Ziffer auslesen. Ich habe bisher nur den Befehl "readln" gefunden, der auch funktioniert, aber für meine Zwecke unbrauchbar ist. Ich bin Gelegenheitsprogrammierer ohne wirklich Grundlagenkenntnisse.

Datei: Textfile;
Ziffer: String;
...
AssignFile(Datei,'c:\Pi.txt');
Reset(Datei);
...
Readln(Datei,Ziffer);
...
CloseFile(Datei);


Gibt es einen eigenden Befehl dafür oder muss ich das Ganze anders angehen?

Dank und Gruß,
mikeslash

[Uwe Raabe]

Ohne jetzt deinen ganzen Ansatz umzustellen, nimm einfach Read(Datei, Zeichen); wobei Zeichen: Char;

[mikeslash]

danke, funktioniert gut. nur bei den zeilenumbrüchen wird ein Leerzeichen eingelesen. kann man das irgendwie umgehen?

ich weise "Zeichen" einer variant-variablen zu und wandle dann in integer um, aber variant nimmt keine Leerzeichen an.

[Union]

Variant nimmt schon Leerzeichen an, aber die Umwandlung in integer funktioniert nicht. Prüfe doch auf ungültige Zeichen z.b.:

Delphi-Quellcode:

if Zeichen in [#10, #13, #32] then
   <überspringen>

oder auf gültige analog:

Delphi-Quellcode:

if Zeichen in [#48..#57] then
   <verarbeiten>

[mikeslash]

danke, jetzt läuft es!

[p80286]

Delphi-Quellcode:

Ziffern = String;
nummer : Byte;

....
  readln(f,Ziffern);
  for i:=1 to lenght(Ziffern) do
    nummer:=ord(Ziffern[i])-$30;

ggf. mußt Du nummer durch ein Array of Byte ersetzen.

Gruß
K-H