И вывод массива в строку в компоненты edit и memo
Стартовая форма Вид формы с результатом
EMBED
PBrush
ТЕКСТ ПРОГРАММЫ
unit Unit1;
Interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;
type TForm1 = class(TForm)
Edit1: TEdit;
Memo1: TMemo;
Button1: TButton;
BitBtn1: TBitBtn;
Label1: TLabel;
Label2: TLabel; procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var Form1: TForm1;
implementation {$R *.DFM}
// Процедура чтения размерности и элементов массива из файла
procedure TForm1.Button1Click(Sender: TObject);
CONST M = 16; // максимальное количество элементов в массиве
VAR F: textfile; // файловая переменная для связи с исходным файлом на диске
a : array [ 1..M ] of real; // одномерный массив действительных чисел
i, n : integer; // i текущий индекс элемента массива
// n – введенная размерность массива
begin
assignfile(F,'d:\odn.dan') ; // связь файловой переменной F с файлом на диске
// с именем d:\odn.dan
reset(F); // открыть файл для чтения
label1.caption := 'массив вводим из файла';
readln(f,n); // прочесть размерность из файла
for i:=1 to n do read (f, a[i]); // Чтение элементов массива из файла
for i:=1 to n do // Вывод элементов массива в редактор edit1 и memo1
begin
edit1.text :=edit1.text+' '+floattostr(a[i]);
memo1.text:= memo1.text +' '+floattostr(a[i]);
end ;
closefile(f); // Закрыть файл
end;
end.
Список компонентов
Form1
Left = 192 Top = 107 Width = 333 Height = 300
Caption = 'ВВОД ИЗ ФАЙЛА ВЫВОД В СТРОКУ'
Color = clAqua
Label1
Left = 24 Top = 8 Width = 3 Height = 13
Caption=’ ‘ // пустая строка
Label2
Left = 40 Top = 32 Width = 146 Height = 13
Caption = 'МАССИВ А - 8 элементов'
Edit1
Left = 32 Top = 56 Width = 177 Height = 21
Memo1
Left = 32 Top = 88 Width = 249 Height = 97
Lines.Strings = ('')
Button1
Left = 24 Top = 200 Width = 145 Height = 25
Caption = 'НАЧНЕМ, ПОЖАЛУЙ'
OnClick = Button1Click
BitBtn1
Left = 224 Top = 200 Width = 75 Height = 25
Kind = bkClose
Содержимое текстового файла d:\odn.dan с исходными данными
8 1
3 8 65 0 –5 2 34
- размерность n=8
- восемь элементов массива