Функции и процедуры с использыванием методов объектов

← →
SER © (2002-03-01 02:43) [0]

Вопрос конечно ламерский, но помогите плиззз.
Как написать функцию, которая в своем теле использует фуикции и процедуры объекта.
Ну например... Есть несколько Edit-тов на форме. Нужно скопировать текст из них но не полностью, а произвольно несколько символов. Нужно, чтобы функция работала для любого Edit... Не писать же по 3-4 строчки для кождого, если их 10-30 штук.
Спасибо за внимание.

← →
[NIKEL] © (2002-03-01 05:34) [1]

пиши функцию в параметр которой предаётся Sender или имя объекта
и обробатывай

← →
Mike_Goblin © (2002-03-01 09:46) [2]

procedure GetText(Src:TEdit; Dest:TEdit; Index,Len:integer)
begin
Dest.Text:=Copy(Src.Text, Index, Len);
end;

← →
Sasha9 © (2002-03-01 11:24) [3]

2Mike_Goblin
только если в Scr и Dest передаётся компонент, созданный в рантайм, желательно проверить их на nil

Спасибо всем!

Функции и процедуры с использыванием методов объектов Найти похожие ветки