خواندن کاراکتر به کاراکتر از فایل

[www2006]

سلام

من با دو دستور AssignFile و Reset یک فایل ( Txt.* ) رو باز میکنم ... حالا میخوام تو هر خط ، کاراکترهای اون خطو یکی یکی بخونم .. از دستورات Read و Readln که استفاده میکنم ، کل خطو میخونه ... چجوری میشه کاراکتر به کاراکتر خوند ؟

با تشکر ...

[hossein taghi zadeh]

با سلام

از کد زیر استفاده کنید.


Var
F: TextFile;
Ch: Char;
Begin
AssignFile(F, 'FileName');
Reset(F);
While Not Eof(F) Do
Begin
While Not Eoln(F) Do
Begin
Read(F, Ch);
End;
Readln(F);
End;
End;

[www2006]

تشکر از جواب ... سوتی من این بود که متغیری رو که باید Char تعریف کنم ، String تعریف میکردم ..