引言: 如何在讀進Txt檔時就將斷行給取消掉，在顯示到memo中呢？ 請各位大大幫小弟一下 發表人 - jamesqek 於 2005/01/12 17:01:09

procedure TForm1.Button1Click(Sender: TObject);
var
  slTmp: TStringList;
  i: Integer;    begin
  slTmp := TStringList.Create;
  try
    slTmp.LoadFromFile('c:\test.txt');
    Memo1.Text := '';
    for i := 0 to slTmp.Count - 1 do
      Memo1.Text := Memo1.Text   slTmp.Strings[i];
  finally
    slTmp.Free;
  end;
end;

試試這樣,比較簡單..........    procedure TForm1.Button1Click(Sender: TObject);
var
  slTmp: TStringList;
begin
  slTmp := TStringList.Create;
  try
    slTmp.LoadFromFile('c:\test.txt');
    Memo1.Text := StringReplace(slTmp.Text,#13#10,'',[rfReplaceAll]);
  finally
    slTmp.Free;
  end;
end;