後の文字を削除したいのですが (ID:27622)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちは、お世話になります。 行末の文字を何文字か削除するプログラムを作っているのですが、 うまくいきません。（指定した文字数削除できたり、まったく削除されなかったりです） どこが間違っているのでしょうか？ //プログラム procedure TForm1.Button1Click(Sender: TObject); var RefText,LoadText,OutPutText:TStringList; i:Integer; MWord,befo,afte:String; begin LoadText := TStringList.Create; OutPutText:= TStringList.Create; OutPutText.Clear; LoadText.LoadFromFile('D:\testtest.txt'); For i := 0 to LoadText.Count - 1 do begin MWord :=''; MWord := LoadText.Strings[i] ; befo := MWord; MWord := LeftStr(MWord, Length(MWord) - 4); afte := MWord; OutPutText.Add('before ' + befo + IntToStr(Length(befo))); OutPutText.Add('after ' + afte + IntToStr(Length(afte))); OutPutText.Add(#10#13); end; OutputText.SaveToFile('D:\出力testtest.txt'); LoadText.Free; OutputText.Free; ShowMessage('処理が完了しました'); end; end. //テスト用データ ＡＢＣ ＡＢＣＤ ＡＢＣＤＥ ＡＢＣＤＥＦ ＡＢＣＤＥＦＧ 文字は全角です。 よろしくお願いします。