くだすれDelphi(超初心者用)その48

くだすれDelphi(超初心者用)その48 at TECH

100:Delﾌｻｷﾞｺ ◆A6VzDeLphI
08/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;

次ページ

続きを表示

1を表示