ASCII aus Textdatei lesen+umwandeln

**becks2013**

Hallo

ich komme gerade nicht weiter.
Also ich hab in eine Textdatei Buchstaben zeilenweise geschrieben.
Mit Delphi hab ich diese dann ausgelesen und umgewandelt (ASCII) und als Zahlen ausgegeben.
Jetzt möchte ich das in einer Textdatei zeilenweise Buchstaben,Zahlen stehen. Das das Programm erkennt wenn es eine Buchstabe ist wandel ich das in Zahl um und wenn das eine Zahl ist dann in einen Buchstaben.

Ich weiß wohl das diese eigentlich ganz einfaches Programmieren ist aber im arbeite mich da momentan so langsam ran

Der Quellecode ist von Buchstabe in Zahl:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.LeseClick(Sender: TObject);

var                  

  f:textfile;

  ch:char;

  b:integer;

begin

  memo1.clear;               

  assignfile(f,'Buchstaben.txt');      

  reset(f);               

  while not eof(f) do            

   Begin

     readln(f,ch);            

     b:=ord(ch);            

     memo1.Lines.add(inttostr(b));      

   end;

  closefile(f);               

end;

end.

ASCII aus Textdatei lesen+umwandeln

ASCII aus Textdatei lesen+umwandeln

Forumregeln