[xdessx]

Ребят, шутки в сторону! Нужна помощь!
Текст переходит из edit1 в edit2:

Код:

//очищение edit2
for i := 0 to edit2.length do begin
 edit2.text[i] := '';
end;

//заполнение edit2
for j := 0 to edit1.length do begin
 edit2.text := edit2.text + edit1.text[j];
end;

label1.caption := edit2.text;

Надо его "оптимизировать", но я не пойму как

[Black Raider]

Код:

edit2.text := edit1.text

[xdessx]

Код:

//очищение edit2
for i := 0 to edit2.length do begin
 edit2.text[i] := '';
end;

edit2.text := edit1.text; 
//заполнение edit2
for j := 0 to edit1.length do begin
 edit2.text := edit2.text + edit1.text[j];
end;
 
label1.caption := edit2.text;

Почему выводится по 2 раза?

[Black Raider]

потому что за место всего вашего кода надо написать:

Код:

edit2.text := edit1.text; 
 
label1.caption := edit2.text;

[Mrak]

жестоко, хардкор в коде
про метод clear не слыхал?

[Black Raider]

2 Mrak Да он там в принципе и не нужен, оптимизировать так до конца

[Mrak]

Сообщение от Black Raider

2 Mrak Да он там в принципе и не нужен, оптимизировать так до конца

да я не спорю, просто, мягко говоря, удивился, увидев это

Код:

//очищение edit2
for i := 0 to edit2.length do begin
 edit2.text[i] := '';
end;
 
//заполнение edit2
for j := 0 to edit1.length do begin
 edit2.text := edit2.text + edit1.text[j];
end;

[xdessx]

Сообщение от Black Raider

потому что за место всего вашего кода надо написать:

Код:

edit2.text := edit1.text; 
 
label1.caption := edit2.text;

Почему-то не работает! Решил проблему сам, код:

Код:

label1.caption := edit1.text;