Замена

[Патрон]

Привет всем! в общем как обычно начал писать прогу и наступил на жестокие "грабли" =)
Надо заменить в коде указание текста ('текст') на Edit1.Text
Помогите плиз! 5 день сижу за написанием проги, мозг уже просто не способен думать даже над простыми задачами!!!

[Bigtyoma]

Всмысле?

Надо заменить в коде указание текста ('текст') на Edit1.Text

Заменить текст Label на текст который ты введёш в Edit?

если да то

procedure TForm1.Edit1Change(Sender: TObject);
begin
Label1.Caption:=Edit1.Text
end;

[Патрон]

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

Всмысле?

Заменить текст Label на текст который ты введёш в Edit?

если да то

нет, я весь код приводить не буду, т.к. он очень большой...
приведу лишь похожий:

(FindWindow(nil, 'текст')

вот надо заменить похожее безобразие на Edit1.Text, чтобы через компонент TEdit можно было искать окна...

[mihali4]

(FindWindow(nil, 'текст')
вот надо заменить похожее безобразие на Edit1.Text, чтобы через компонент TEdit можно было искать окна...

Странно... Если бы вы были повнимательнее, то обратили бы внимание на подсказку, которую вам выдавала Дельфи во время ваших проб, и уже давно получили бы результат:
FindWindow(nil,PAnsiChar(Edit1.Text))

[Патрон]

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

Странно... Если бы вы были повнимательнее, то обратили бы внимание на подсказку, которую вам выдавала Дельфи во время ваших проб, и уже давно получили бы результат:
FindWindow(nil,PAnsiChar(Edit1.Text))

да, но это в первом случае, а если чуть чуть перестроить:

SetWindowText(FindWindow(nil, 'текст')

как в этом случае можно поставить замену?

[Ozerich]

SetWindowText(FindWindow(nil, 'текст'),Pchar(edit1.text))

[Патрон]

Ozerich, mihali4, спасибо большое, заработала прога =)
обоим по +1