关于delphi处理字符的一个问题？

Question

大家好，我想从一个文件比如 data.txt 读出一些数据。它的格式如下：address|username|password|info我想读username和password这两个数据，请问在delphi中该怎么做？大家请帮忙看看。谢谢大家

Answer 1

address|username|password|info 
北京|楼主|密码|信息
南京|沙发|密码|信息2像这样？

Answer 2

var
  list,list2:TStringList;
  i:Integer;
begin
  list := TStringList.Create;
  list2 := TStringList.Create;
  try
    list.LoadFromFile('路径');
    for i = 0 to list.Count - 1 do
    begin
      list2.Delimiter := '|';
      list2.DelimitedText := list.Strings[i];
      ShowMessage(list2.Strings[1]);//  username数据
      ShowMessage(list2.Strings[2]);//  password数据
    end;
  finally
    list.Free;
    list2.Free;
  end;
end;

Answer 3

先设一个TStringlist型的变量 s，s:= TStringlist.Create;再用s.LoadFromFile(data.txt);读出文件的内容，然后以文件的数据行数为循环次数写循环：for i:=1 to s.Count - 1 do 在循环体里面可以依次读取每行你所需的数据。读出整行数据后，采用字符串比较的方式，取出你所需的那部分数据就行。方法就是这样，具体的代码，你自己写吧，不难