opendialog1beign if onendialog1.execute then begin memo1.loadfromfile(opendialog1.filename); for i:= 0 to memo1.lines.count-1 do begin for J := 1 to length(memo1.lines[i]) do if (copy(memo1.lines[I],J,1) = '#10') or (copy(memo1.lines[I],J,1) = '#13') then copy(memo1.lines[I],J,1) := #0; end; end; end;
var
TempStrings:TStringList; i:integer; TempStrings:=TStringList.Create; TempStrings.LoadFromFile('filename'); for i:=0 to TempStrings.count-1 do memo.lines.text:=momo.lines.text+TempStrings[i];这样可以去掉所有的换行要自动换行还是设置Wordwrap为True就可以了
ddfa两位老大,不行呀!!
if onendialog1.execute then
begin
memo1.loadfromfile(opendialog1.filename);
for i:= 0 to memo1.lines.count-1 do
begin
for J := 1 to length(memo1.lines[i]) do
if (copy(memo1.lines[I],J,1) = '#10') or
(copy(memo1.lines[I],J,1) = '#13') then
copy(memo1.lines[I],J,1) := #0;
end;
end;
end;
TempStrings:TStringList;
i:integer; TempStrings:=TStringList.Create;
TempStrings.LoadFromFile('filename');
for i:=0 to TempStrings.count-1 do
memo.lines.text:=momo.lines.text+TempStrings[i];这样可以去掉所有的换行要自动换行还是设置Wordwrap为True就可以了