Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TRichEdit [D7]

makar © (2006-04-21 11:13:00)
Подскажите пожайлуста
Есть заполненный массив, как его вывести в поле формы RichEdit?

inri13666 (2006-04-21 13:49:00) [1]
мой ответ таков есть такое свойство как "Lines" и у него есть подсвойства типа ADD вообщем ето выглядит так Richedit1.lines.add(some string)
Под "Some string" подразумевается вывод строкового значения в линию

а вот пример:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a:array[1..5]of string;
b:array[1..5]of Byte;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:byte;
begin
richedit1.Lines.Clear;//Очистка Richedit1
for i :=1 to 5 do begin
//Добавление из Числового массива
richedit1.Lines.add(inttostr(i)+'-ый элемент массива b ' +
'равен :'+inttostr(b[i]));
//Добавление из Символьного массива
richedit1.Lines.add(inttostr(i)+'-ый элемент массива А ' +
'равен :'+a[i]);
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:byte;
begin
for i :=1 to 5 do
begin
b[i]:=i+56;
end;
a[1]:='First Line';
a[2]:='Second Line';
a[3]:='Third Line' ;
a[4]:='Fourth Line';
a[5]:='Fifth Line' ;

end;

end.

Amoeba (2006-04-21 13:22:00) [2]

> поле формы RichEdit?

А что под этим должно понимать?

Loginov Dmitry (2006-04-21 13:17:00) [3]
А что за форма такая "RichEdit"?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »