Работа с формой

uses vcl,sounds;
//$VCLDESIGN+
var
Form1: Form;
Panel1: Panel;
TextLabel1: TextLabel;
Edit1: Edit;
Button1: Button;
var x:string;
var n:sound;
//$VCLDESIGN
procedure BClick;
begin
Form1.Close;

end;

procedure InitControls;
begin
Form1:= Form.Create(0,0,380,239);
Form1.InitControl(True,False,alNone,crDe fault,clBtnFace,'Ôîðìà1','');
Panel1:= Panel.Create(Form1,0,0,369,57);
Panel1.InitControl(True,True,alNone,crDe fault,clBackground,'','');
TextLabel1:= TextLabel.Create(Panel1,88,8,186,47);
TextLabel1.InitControl(True,True,alNone, crDefault,clBlack,'Ââåäèòå èìÿ','');
Edit1:= Edit.Create(Form1,24,80,313,41);
Edit1.InitControl(True,True,alNone,crDef ault,clWindow,'','');
Button1:= Button.Create(Form1,128,136,105,41);
Button1.InitControl(True,True,alNone,crD efault,0,'Îê','');
TextLabel1.Font.Color:= clRed;
TextLabel1.Font.Name:= 'Segoe Print';
TextLabel1.Font.Size:= 20;
Button1.OnClick:=Bclick;
Form1.Position:= poScreenCenter;
Form1.Show;
end;

begin
n:=Sound.Create('F:\fon.wav');
n.play;

InitControls;


writeln('Âàøå èìÿ - ');
readln;
end.


Как сохранить то что введем в Edit1 ???? подскажите пожалуста!!!!

0

Сообщение от Deatrocker сохранить то что введем в Edit1

сохранить куда? в массив, в файл?

0

В переменную ну или во чтолибо чтобы можно было вывести 'Вас зовут',(точто введем);

0

Это варант на Delphi. Думаю там похоже

0