Question

Delphi如何将txt文本文件以逗号为分隔符导入listview中

例如:我有 aa.txt 文件，内容为：123，4565，5,44456,如何将它们以逗号为分隔符导入listview中,listview每例为逗号隔开的数据.

Answer 1

先不说aa.txt

假设有一字符串v,其值为:123,456,789,x,y

var
list: TStrings;
begin
list := TStringList.Create;
try
//ExtractStrings函数将字符串v以","分开,并存到list中
//如果是很复杂的字符串分解,则需要专门解析
ExtractStrings([','], [], PChar(v), list);
//现在list.count=5
//list.String[0]为123
//至於到ListView就不再说了吧
finally
FreeAndNil(list);
end;
end

Answer 2

Procedure TForm1.BitBtn1Click(Sender: TObject);
Var
I: Integer;
atemp: String;
alist: TStringList;
Begin
alist := TStringList.Create;
Try
alist.LoadFromFile('f:\aa.txt');
atemp := alist.Text;
atemp := StringRePlace(atemp, ' ', 'XXX1', [rfReplaceAll]);
atemp := StringRePlace(atemp, ',', 'XXX2', [rfReplaceAll]);
atemp := StringRePlace(atemp, '，', ',', [rfReplaceAll]);
alist.CommaText := atemp;

For I := 0 To alist.Count - 1 Do
Begin
atemp := alist[I];
atemp := StringRePlace(atemp, 'XXX1', ' ', [rfReplaceAll]);
atemp := StringRePlace(atemp, 'XXX2', ',', [rfReplaceAll]);
ListView1.Items.Add.Caption := Trim(atemp);
End;

Finally
alist.Clear;
alist.Free;
End;
End;

Answer 3

Tstringlist中直接就有分割字符的方法.
查一下Tstringlist的详细用法吧!
至于Listview这个用法也很简单.
百度查实例,一看就明白了