是不是从
xxxxxx yyyyyy zzzzzzzzzzzz
xxxxxx yyyyyy zzzzzzzzzzzz
xxxxxx yyyyyy zzzzzzzzzzzz
要转变位
xxxxxx yyyyyy
zzzzzzzzzzzzzzxxxxxx yyyyyyy
zzzzzzzzzzzzzzxxxxx yyyyyyy
zzzzzzzzzzzzz
?如果是这样很简单!
xxxxxx yyyyyy zzzzzzzzzzzz
xxxxxx yyyyyy zzzzzzzzzzzz
xxxxxx yyyyyy zzzzzzzzzzzz
要转变位
xxxxxx yyyyyy
zzzzzzzzzzzzzzxxxxxx yyyyyyy
zzzzzzzzzzzzzzxxxxx yyyyyyy
zzzzzzzzzzzzz
?如果是这样很简单!
请详细说说
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;