|
Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: textdatei zeichen für zeichen einlesen
16. Jul 2013, 22:47
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
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
|