是不是从
xxxxxx  yyyyyy  zzzzzzzzzzzz
xxxxxx  yyyyyy  zzzzzzzzzzzz
xxxxxx  yyyyyy  zzzzzzzzzzzz
要转变位 
xxxxxx  yyyyyy
zzzzzzzzzzzzzzxxxxxx yyyyyyy
zzzzzzzzzzzzzzxxxxx yyyyyyy
zzzzzzzzzzzzz
?如果是这样很简单!

解决方案 »

  1.   

    ch81(missile) 高手 
    请详细说说
      

  2.   

    大概就如下,我的程序是裸写的,可能处的问题较多,你改一下就好。procedure TForm1.Button2Click 
    var F:TextFile;
    var i:integer;
    var ListItem:TListItem;
    begin
         AssignFile(F,'c:\data2.txt');
         Rewrite(F);
         For i:=0 to ListView1.Items.Count do
         begin
              ListItem:=ListView1.Items.Item[i];
              Write(F,ListItem.Caption+' ');
              Write(F,ListItem.SubItems.Strings[0]+#13#10);
              WriteLn(F,ListItem.SubItems.Strings[1]);
         end;
         CloseFile(F);
    end;