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

Delphi-Quellcode:

Read(Datei, Zeichen);

wobei

Delphi-Quellcode:

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

Delphi-Quellcode:

nummer

durch ein

Delphi-Quellcode:

Array of Byte

ersetzen.

Gruß
K-H