давно
Старший Модератор
31795
6196
03.06.2016, 19:39
общий
это ответ
Здравствуйте, almazmr!
Memo1.Lines имеет тип string, Вы можете изменять содержимое строк как и с обычными строками.
[code lang=pascal h=200]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Memo1.Lines[0]:='';
for i:=1 to 10 do
Memo1.Lines[0]:=Memo1.Lines[0]+' '+IntToStr(i)
end;
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.