- 100 名前：Delﾌｻｷﾞｺ ◆A6VzDeLphI mailto:sage [2008/11/14(金) 00:02:20 ]
- >>98さん
∧,,∧ こんな感じかしら
ミﾟДﾟ,,彡
ﾐ(旦⊂ ﾐ 操作なので。
(~,,(~,,,ミ〜
これ動かして慣れてみてください。
procedure TForm6.Button1Click(Sender: TObject);
var
i: Integer;
j: Integer;
s: String;
begin
for i := 0 to Memo1.Lines.Count - 1 do
begin
s := Memo1.Lines.Strings[i];
for j := 1 to Length(s) do
begin
s[j] := '*';
//読み出しだけならこんな書き方もできたり。
// s := s + Memo1.Lines[i][j];
end;
Memo1.Lines[i] := s;
end;
end;
