记账软件版1楼: 中国传奇|显示一|http://zg.75175.com
英雄在线|显示二|http://zg.75175.com
测试传奇|显示三|http://zg.75175.com
传奇测试|显示四|http://zg.75175.com

上面的几行字，怎么，用listbox1.items显示出来！
显示效果是：
显示一
显示二
显示三
显示四

2楼: 又是你啊？
这个问题关键在字符串的分割上，我刚才给你的代码里面已经有用TStringList分割字符串的方法了。 如管家婆财务软件

3楼: 我的文件，不只一行呀，是多行的，不知道怎么搞！

4楼: 多行可以用循环，一行一行的读出来。
就是循环s1。

5楼: procedure TForm1.FormCreate(Sender: TObject);
var
s1,s2: TStringList;
I:integer;
f:string;
begin
f:=ExtractFilePath(Application.Exename)+＇＇Login.ini＇＇;
s1 := TStringList.Create;
s2 := TStringList.Create;
s1.LoadFromFile(f);
s2.Delimiter := ＇＇|＇＇;
s2.DelimitedText := s1.Strings[0];
ListBox1.Items.Add(s2.Strings[i]);
s1.Free;
s2.Free;

end;

给出代码好不，老大，我搞了一会子，就是出不来！
要读的文件内容为
中国传奇|显示一|http://zg.75175.com
英雄在线|显示二|http://zg.75175.com
测试传奇|显示三|http://zg.75175.com
传奇测试|显示四|http://zg.75175.com

6楼: ...
s1.LoadFromFile(f);
for i := 0 to s1.Count - 1 do
begin
s2.Clear;
s2.Delimiter := ＇＇|＇＇;
s2.DelimitedText := s1.Strings[i];
if s2.Count > 1 then
ListBox1.Items.Add(s2.Strings[1]);
end;
s1.Free;
...

记账软件版7楼: 因为你要读的是INI文件，所以你需要分辨那些行要读，那些不要读，不然以上的代码有可能运行的时候越界。

8楼: 哦，老哥你技术真好，你有联系QQ吗，我的 QQ55754344
在问一个问题
在listbox1里显示的内容，点一下选中的行，如我点的是显示一，怎么叫他在
edit1上显示为中国传奇
edit2上显示为显示一
edit3上显示为http://zg.75175.com
给出代码，谢谢！

9楼: 接受答案了.