delphi 从文本文件一次读一个字符解决方法

delphi 从文本文件一次读一个字符
请问在delphi可不可以从文本文件一次读一个字符
我用过reanln 可是这个会读出一行，因为读出来的字符是要再处里的
所以字符是不能随便分开的（还有如果文件太大也不行）

我也用过TstringList
可是也不知道怎一次取出一个字符

请高人帮帮我先谢谢了

------解决方案--------------------
你先一行读出来,再一个字符一个字符处理不行?
------解决方案--------------------
关于这个问题.......给个函数....给你.如果..不舍符合你的要求.请再跟贴..


procedure Tmainform.FormCreate(Sender: TObject);
begin
s:='192.168.0.253';
j:=0;
for i:=1 to length(s) do
begin
if s[i]='.' then j:=j+1
else
t[j]:=t[j]+s[i];
end;
a:=t[0];
b:=t[1];
c:=t[2];
d:=t[3];


//showmessage(a);
这里a 就是你取的每个值....依此类推..................下..OK...



------解决方案--------------------
procedure TForm1.Button1Click(Sender: TObject);
var
 s:TstringList ;
 i,j:integer;
begin
s:=TstringList.Create;
s.LoadFromFile('c:\A.txt');
for i:=0 to s.Count-1 do
 for j:=1 to length(s.Strings[i]) do
showmessage(s.Strings[i][j]);
end;
------解决方案--------------------
不知道你是真笨，还是没有看懂我的程序。想要用换行还不简单？

改成这样就可以有换行了：

procedure TForm1.Button1Click(Sender: TObject); 
var 
s:TstringList ; 
i,j:integer; 
begin 
s:=TstringList.Create; 
s.LoadFromFile('c:\A.txt'); 
for i:=0 to s.Count-1 do //此循环是读出每行。
 begin
for j:=1 to length(s.Strings[i]) do //此循环是读出每列。
showmessage(s.Strings[i][j]); 
showmessage(#13#10);//这里显示回车换行符。
 end;
end;
------解决方案--------------------
readln读一行，read读一个字符（不换行），以前写pascal经常用到的。
------解决方案--------------------
To 楼主：
1. 在Delphi中，String = AnsiString，最多可容纳2GB的内容，区区30KB，根本不在话下。
2. 你要处理的这类文件，属于带有格式的文件，你所描述的“第一个：控制位、第二个：源地址，第三个：目的地址”就是所谓的格式。处理格式文件，一个字节一个字节读入并处理，是效率最低、最慢的。
------解决方案--------------------
var 
hFile:Integer;
c:Char;
num:Integer;
begin
hFile:=FileOpen('FileName.Ext',fmOpenRead);
if hFile=0 then
begin
Result:=False;
Exit;
end;
try
num:=FileRead(hFile,c,1);
repeat
DoWith(c);
num:=FileRead(hFile,c,1);
until num=0;
finally
FileClose(hFile);
end;
Result:=True;
end;