Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 189547
03.06.2016, 17:48
0.00 руб.
0 3 1
Компьютеры Программирование
Здравствуйте! У меня возникли сложности с таким вопросом:

В Паскале:

Код:

for i:=1 to n do
write(a)


Как этот цикл можно реализовать в Delphi?

Memo1.Lines.Add - пишет каждый раз с новой строчки

Label1.Caption - При присвоении не сохраняет прежние числа

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
03.06.2016, 18:14
общий
Так пробывали?[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]
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
almazmr
Посетитель
400259
21
03.06.2016, 19:23
общий
03.06.2016, 19:24
Спасибо, помогли
давно
Зенченко Константин Николаевич
Старший Модератор
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]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа