请各位兄弟姐妹帮帮忙!我现在是想把listbox1中n条数据(型如:)导入一个文本文件,将listbox1的内容导入到listbox2中,只要11位数字

Question

我现在是想把listbox1中n条数据(型如:)导入一个文本文件,将listbox1的内容导入到listbox2中,只要11位数字,
时  隔,百  慕,h2005,23787973847,'234','2345',
里  通,进  出,h2038,23465432345,'345','3456',
进  出,赶时髦,h2679,23543234564,'345','4567',
顺藤摸,夺  取,h2144,23456785434,'234','3455',
............
自己做了一下,可总是导入出到listbox2中的只有第一条,第一条下的全是同样的内容
procedure TForm1.Button1Click(Sender: TObject);
function GetDelimiteredStringN(Astring:String;Dlmter:Char;nPos:integer):string;
var
sList:TStringList;
begin
Result:='';
sList:=TStringList.Create;
sList.Text:=StringReplace(Astring,Dlmter,#13#10,[rfReplaceAll]);
if (nPos>0) and(sList.Count>=nPos) then
 Result:=sList[nPos-1];
end;
var i:integer;
    s:string;
begin
  s:=listbox1.Items.Text;
  for i:=0 to listbox1.Items.Count-1  do
  begin
   listbox2.Items.Add(GetDelimiteredStringN(s,',',4));
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
listbox1.Items.LoadFromFile('dat\Ttt.txt');
end;

Answer 1

  s:=listbox1.Items.Text; 
  for i:=0 to listbox1.Items.Count-1  do 
  begin 
   listbox2.Items.Add(GetDelimiteredStringN(s, ', ',4)); 
  end; --->  for i:=0 to listbox1.Items.Count-1  do 
  begin 
   s:=listbox1.Items[i].Text; 
   listbox2.Items.Add(GetDelimiteredStringN(s, ', ',4)); 
  end; 

Answer 2

[错误] Unit1.pas(45): Record, object or class type required
[错误] Unit1.pas(46): Incompatible types: 'Char' and 'String'
最后出现这样的问题,

Answer 3

这位大哥,帮忙帮到了,还是要谢谢你,可以交个朋友吗?
我的mail  :[email protected]

Answer 4

Unit1.pas(45): Record, object or class type required
请问这个问题是什么问题,谢谢!!!!该怎么办?>

Answer 5

  for i:=0 to listbox1.Items.Count-1  do 
  begin 
   s:=ListBox1.Items.Strings[i]; 
   listbox2.Items.Add(GetDelimiteredStringN(s, ', ',4)); 
  end; 

Answer 6

谢谢大家,1楼的要改一下就可以了,s:=listbox1.Items[i];
同样5楼的也可以的.

Answer 7

请问楼上的各位,我现在的想要把文本(型如下:)只导入第3个和第4个逗号前的内容怎么办?
时  隔,百  慕,h2005,23787973847,'234','2345', 
里  通,进  出,h2038,23465432345,'345','3456', 
进  出,赶时髦在,h2679,23543234564,'345','4567', 
顺藤摸,夺  取,h2144,23456785434,'236','3455',
........
要导入出到listbox2中的数据如:
h2005 23787973847
h2038 23465432345
h2679 23543234564
h2144 23456785434
先谢谢各位了!!!