|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
st :- st + IntToStr(i)+ ' '+ team[i] +• #13; что здесь обозночает #13
Код:
unit outar_; interface Windows, Messages, SysOtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForml = class(TForm) Buttonl: TButton; Labell: TLabel; procedure ButtonlClick(Sender: TObject); private { Private declarations } public f Public declarations I end; var Forml: TForml; iiaplementation {?R *,dfm) const NT = 5; var team: array[1..NT] of string[10] = ('Зенит1,'Динамо1,'Ротор1,'Спартак','СКА'I ; procedure TForml.ButtonlClick(Sender: TObject); var st:string; // список команд i:integer; // индекс, номер элемента массива begin // формирование списка для отображения в форме for i:=l to NT do st :- st + IntToStr(i)+ ' '+ team[i] +• #13; // вывал списка Labell.Caption := st; end; end. весь код Последний раз редактировалось Admin, 12.02.2012 в 20:35. |
#2
|
||||
|
||||
переход на новую строку при выводе в TLabel. пример:
Код:
Label1.Caption:='hello'#13#10'world'; Пишу программы за еду. __________________ |