請教各方前輩......
經過轉換後文字檔的最後一行都會多出一行空白......
利用if判斷來刪除最後一行空白......
RichEdit1.Lines.Delete(Richedit1.Lines.Count - 1);
却無刪除最後一行
該如何清除行的空白(沒資料) 謝謝

參考一下～
http://delphi.ktop.com.tw/board.php?cid=168&fid=912&tid=86281

C 看不懂呢

小弟測試結果
確實有刪除最後一行的空白, 但是 換行字元沒有刪除
而最後一行只有換行字元, RichEdit 不算一行
如果要連最後一行的 換行 字元也刪除, 方法如下
procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
SS: String;
begin
// RichEdit1.Lines.Delete(Richedit1.Lines.Count - 1); // 不用這行
for i:=0 to Richedit1.Lines.Count -2 do
SS := SS Richedit1.Lines[i];
RichEdit1.Text:=SS;
end;

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

依  PCBOY 改編。。。最後我用此方法刪除最後空白

procedure TForm1.deleteblank(Sender: TObject);
var
i,j : Integer;
SS: String;
begin
for i:=0 to Memo1.Lines.Count -1 do
SS := SS #13#10 Memo1.Lines[i];
Memo1.Text:=SS;
Memo1.Lines.Delete(0);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
n: Integer;
begin
for n:=0 to 199 do
deleteblank(Sender);
end;

如何刪 Memo1 or richedit 文字中的換行空白又該怎麼辦呢？？？

試試看如下的方式吧:

var
s: string;
begin
s := Memo1.Lines.Text;
Memo1.Lines.Text := StringReplace(s, #13#10#13#10, #13#10, [rfReplaceAll]);
end;

===================引 用 文 章===================

如何刪 Memo1 or richedit 文字中的換行空白又該怎麼辦呢？？？