依次读取文本文件问题!!!! ( 积分: 200 )

Z

zylnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-15

• #1

文本文件内容结构如下:
INSERT INTO test(KEYNO, ND, CRQ, TIME)VALUES
('128203B70000022', '2006', '20070306', '081504');
INSERT INTO test(KEYNO, ND, CRQ, TIME) VALUES
('128203B70000023', '2006', '20070306', '081504');
.......
如何以分号(为标记,依次读取内容到memo1中,显示出来??????

 

S

skadon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-15

• #2

var
i : integer;
Ts : TStringList;
begin
Ts:=TStringList.Create;
Ts.LoadFromFile('C:/a.txt');
i:=Ts.Count-1;
while i>0 do begin
Ts[i-1]:=Ts[i-1]+Ts;
Ts.delete(i);
i:=i-2;
end;
Memo1.Lines.Text:=Ts.text;
Ts.free;.
end;

 

A

ANiDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-15

• #3

with Memo1.Lines do
begin
LoadFromFile('...');
Delimiter := ';';
DelimiterText := Memo1.Text;
end;

 

无

无欲则刚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-15

• #4

同意ANiDelphi的方法 简洁 不过 我一般用TStringList来做

strList.Delimiter := ';';
strList.LoadFromFile('...');
Memo.Lines := TStringList;