Memoのテキストに引用符を付けたいのですが


Noby  2017-12-21 16:04:32  No: 48895  IP: 192.*.*.*

いつもお世話になります。

行頭に引用符を付けたいのですが、

下記のコードだと、元の文章の後に追記する形になってしまいます。

Memo1.textの内容を別の変数(String)に代入させ、Memo1.Cler

させると、Linesコマンドが使えませんでした。Googleでいろいろと探しまし

たが、こちらでご教授いただければ幸いです。




rocedure TForm1.mnuInyoufuFukaClick(Sender: TObject);
var
  i:integer;

begin

  for i := 0 to Memo1.lines.Count - 1 do Memo1.Lines.Add('>' + Memo1.lines[i]);
end;

編集 削除
KONNOYA  2017-12-21 17:13:37  No: 48896  IP: 192.*.*.*

Addメソッドでは「追加」になりますね。
行を「書き換える場合」は、Lines[行] := 〇× という風に書きます。

  for i := 0 to Memo1.Lines.Count - 1 do
    Memo1.Lines[ i ] := '>' + Memo1.Lines[ i ];


TMemo等、開発元のEmbarcaderoや、様々な方の記事があるので参考にされると良いかと思います。

編集 削除
igy  2017-12-21 17:18:05  No: 48897  IP: 192.*.*.*

> Memo1.Lines.Add('>' + Memo1.lines[i]); 

したいことは、

Memo1.lines[i] := '>' + Memo1.lines[i];

ですか?

編集 削除
Noby  2017-12-21 21:43:43  No: 48898  IP: 192.*.*.*

ヒマホホマルチさん、ヲサさん

ありがとうございます。

さんざんヌで探したのですが、探し方が悪かったのか探せませんでした。

今後は、開発元のナのサイトももっと詳しく見てみます。

ヲサ
>行を「書き換える場合」は、フロ行ンヲサコスヲサ〇×

このようにすると書き換えが出来たのですね。

ヲサヲサヲサヲサヘアョフロヲサヲサンヲサコスヲサァヲサァヲサォヲサヘアョフロヲサヲサンサヲサ

これで出来ました。本当にありがとうございました。
スススススススススススススススススススススススススススススススススススススススス
ニコ 
トコ イーアキッアイッイイィ金ゥ ークコーアコイク  書込者ノト:ロ 「「・「 ン
モコ 

解決です。
ありがとうございました。

編集 削除