モナーの *やさしい* Delphi質問スレ Ver4
■ このスレッドは過去ログ倉庫に格納されています
0332デフォルトの名無しさん
NGNGガリガリって・・・・程度なんで、これで良いのでは？
var
i:integer;
begin
Memo2.Clear;
for i:=0 to Memo1.Lines.Count -1 do
begin
if (Self.Memo2.Text<>'') then
Self.Memo2.Text:=Self.Memo2.Text+',';
Self.Memo2.Text:=Self.Memo2.Text+'"'+Self.Memo1.Lines[i]+'"';
end;
end;
■ このスレッドは過去ログ倉庫に格納されています