TRichEdit

← →
makar (2006-04-21 11:13) [0]

Подскажите пожайлуста
Есть заполненный массив, как его вывести в поле формы RichEdit?

← →
Loginov Dmitry © (2006-04-21 13:17) [1]

А что за форма такая "RichEdit"?

← →
Amoeba © (2006-04-21 13:22) [2]

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

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

мой ответ таков есть такое свойство как "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.

TRichEdit Найти похожие ветки