В зависимости от значений в edit открыть определенную форму.

[decantnik]

Здравствуйте)) у меня небольшая проблемка..

Как сделать так что было при нажатии кнопки Button информация (текстовая) считывалась с компонента Edit и открывалась определённая форма (Form)?

Заранее благодарен)

[DM_bite]

Вот пример считывания информации в переменную...

procedure TForm1.Button1Click(Sender: TObject);
var x: string;
begin
x:= Edit1.Text;
ShowMessage(x);
end;

[mihali4]

Как сделать так что было при нажатии кнопки Button информация (текстовая) считывалась с компонента Edit и открывалась определённая форма (Form)?

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2:=TForm2.Create(self);
Form2.Label1.Caption:=Edit1.Text;
Form2.ShowModal;
Form2.Free;
end;

[zotox]

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text='Окно_1' then
begin
Form2.Show;
end;
if edit1.text='Текст2' then
begin
Form3.Show;
end;
end;

// писал на скорую руку

[_SERGEYX_]

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2:=TForm2.Create(self);
Form2.ShowModal;
end;

Не-а,всегда проскочит

If Edit.text='Открыть форму 2' then
begin
if TForm2 = nil then
    TForm2 := TTForm2.Create(self);
  TForm2.ShowModal
end;

[mihali4]

Не-а,всегда проскочит

Согласен. Только никто и не собирается предлагать старттопику код, после которого ему самому только и останется, что пить пиво, похохатывая над лохами...

[decantnik]

пацаны реально спасибо)

[ARSEN2008]

Я делаю тестирующ прогу на делфи мне нужно чтобы в
конце теста подсчитала количество правильных ответов.
Я использовал 3 Radiobatton 1 label и в них я из текстового вайла
я подгрузил вопрос и ответ. При нажатии кнопки "Далее" в 3 Radiobatton 1 label
подгружается новые вопросы. Но мне необходимо подсчитать правильные ответы в конце
КАК ЭТО МОЖНО
СДЕЛАТЬ