ASCII aus Textdatei lesen+umwandeln

[baumina]

Delphi-Quellcode:

procedure TForm1.LeseClick(Sender: TObject);
var                  
  f:textfile;
  s:String;
  ch:char;
  b:integer;

begin
  memo1.clear;               
  assignfile(f,'Buchstaben.txt');      
  reset(f);               
  while not eof(f) do            
   Begin
     readln(f,s);            
     try
       ch := Chr(StrToInt(s));
       memo1.Lines.add(ch);      
     except
       b:=ord(s[1]);            
       memo1.Lines.add(inttostr(b));      
     end;
   end;
  closefile(f);               

end;

end.

ungetestet