как ввести данные в код - Delphi

[Бахтияр Оралов]

все спасибо получилось

[Бахтияр Оралов]

y[1] := Strtoint(Memo5.Text); // сюда вводиться значения
y[2] := Strtoint(Memo4.Text);//сюда вводиться значения
procedure TForm1.N2Click(Sender: TObject);
begin
if fOpenDialog1.Execute then Memo1.Lines.LoadFromFile(fOpenDialo g1.FileName);//для открытия
end;

procedure TForm1.N3Click(Sender: TObject);
begin
if fSaveDialog1.Execute then Memo7.Lines.SaveToFile('Шифр.txt');//для сохранения
end;

[Аватар]

Или я чего то не знаю или хуже от него не будет.

В общем то не будет. Просто в главной форме Close не обойдет вниманием и OnClose, если оно есть, и только после этого обратится к Terminate

[Бахтияр Оралов]

y[1] := Strtoint(Memo5.Text);//вводить значения в мемо
y[2] := Strtoint(Memo4.Text);//вводить значение в мемо
if fOpenDialog1.Execute then Memo1.Lines.LoadFromFile(fOpenDialo g1.FileName);//открытие файла

[Adamrus]

Сообщение от Бахтияр Оралов

y[1] := Strtoint(Memo5.Text);//вводить значения в мемо
y[2] := Strtoint(Memo4.Text);//вводить значение в мемо
if fOpenDialog1.Execute then Memo1.Lines.LoadFromFile(fOpenDialo g1.FileName);//открытие файла

у тебя тьма способов внести данные в первые 2 элемента массива!

1. вписать по умолчанию в компоненты значения
2. вписать напрямую в код
3. через ini файл

[ВадимирОвсиенко]

будем пробывать