Копирование строки кода

[artemavd]

Добрый день! Подскажите пожалуйста, как можно сделать так, чтобы я, указав значение в Edit, например, "2", и нажав на кнопку, то у меня в моем коде определенная строчка кода скопировалась и вставилась бы под той, котору копировали. Как такое можно сделать? И можно ли?

[Neobrat]

в самом коде??????

для чего чтоб программа потом по тругому работала?? если да, то нет так сделать нельзя..

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

используй условния для того чтоб манипулировать работой программы

[DomiNick]

Как такое можно сделать? И можно ли?

Вот именно так, как Вы описали, сделать невозможно...
Но если я правильно понял саму идею:

Procedure TForm1.Button1Click(Sender: TObject);
Var i, a: Integer;
Begin
a:=10;
If StrToInt(Edit1.Text)>0 Then
      For i:=1 To StrToInt(Edit1.Text) Do
            a:=a+10; // строка, которую нужно повторить несколько раз (сколько установлено в Edit1.Text)
Form1.Caption:=IntToStr(a);
End;

[XuTpbIu]

Я так понял что в зхависимости от того что написано в Edit, надо выполнять различные действия. Для этого просто пишете:

procedure procedure1;
begin
{действие 1}
end;

procedure procedure2;
begin
{действие 2}
end;


case Edit1.Text of
  '1': procedure1;
  '2': procedure2;
end;

[Kotofff]

case Edit1.Text of
'1': procedure1;
'2': procedure2;
end;

Не генерируй ошибки. В case ... of в аргументе должен быть перечисляемый тип. И как следствие то что написано работать НЕ будет.


2 artemavd, вопрос не ясный.

[DomiNick]

Ну отчего ж... Можно и так...

Procedure TForm1.Button1Click(Sender: TObject);
Var a: Integer;
Begin
a:=10;
Case StrToInt(Edit1.Text) Of
  1: a:=a+10;
  2: a:=a+20;
  End;
Form1.Caption:=IntToStr(a);
End;

Только как проверить "число ли в Edit1.Text" чтот подзабыл...


З.Ы. artemavd, скажи хоть что-нибудь... Так, не так... Или уточни что именно нужно...

[Neobrat]

Сообщение от DomiNick

Ну отчего ж... Можно и так...

Procedure TForm1.Button1Click(Sender: TObject);
Var a: Integer;
Begin
a:=10;
Case StrToInt(Edit1.Text) Of
  1: a:=a+10;
  2: a:=a+20;
  End;
Form1.Caption:=IntToStr(a);
End;

Только как проверить "число ли в Edit1.Text" чтот подзабыл...


З.Ы. artemavd, скажи хоть что-нибудь... Так, не так... Или уточни что именно нужно...

VarIsNumeric(Edit1.Text)
но лучше по мне

StrToIntDef(Edit1.Text,-1)