Здравствуйте!
Когда-то я должен был столкнутся с этой проблемой ... и вот..
Дело в том, что я хочу в одном файле создать управляющие процедуры, которые будут работать с компонентами на форме.
Как мне в процедуре указать неявное компонента, чтобы потом я мог безнапряжно к ней обратится?
Например, пишу:

Код

procedure sss(); var lab: tlabel; begin (lab as Tlabel).Caption:='ds'; end;

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

Код

procedure sss(lab: tlabel);

сразу выдается ошибка..

previos declaration of 'sss' was not marked with the 'overload' directive

Как быть??
((

Цитата

previos declaration of 'sss' was not marked with the 'overload' directive

Дело в том, что ты описал вторую процедуру с именем sss, благодаря чему и получил эту ошибку. Выход: написать одну процедуру, либо пометить обе из существующих директивой overload:

Код

procedure sss(); overload;

Код

procedure sss(); var lab: tlabel; begin (lab as Tlabel).Caption:='ds'; end;

Работоспособность этого кода вообще не понятна. Ты указываешь локальную переменную lab и при этом ни как не связываешь ее с существующим экземпляром TLabel! Если и использовать процедурный подход, то ты должен передать в свою процедуру\функцию указатель на экземпляр класса, с которым хочешь вести работу, т.е.:

Код

procedure sss(lab: TLabel); begin   if Assigned(lab) then     lab.Caption:='ds'; end;

Это сообщение отредактировал(а) <Spawn> - 18.5.2005, 05:07

Тогда я вот не понимаю, как эту процедуру сделать глобальной:
Надо ж ее сначала описать в public, а затем описывать..
Или я что-то опять не понимаю ??
Внутри модуля она себя видит, и нормально вызывается, вот как бы пограмотней ее глобальной сделать?
Я пытаюсь делать так:

Код

public     { Public declarations } procedure sss(lab: tlabel); overload;   end; var   Form1: TForm1;    implementation uses Unit2; procedure sss(lab: tlabel);  overload;  begin  if Assigned(lab) then     lab.Caption:='ds'; end;

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

p.s. Просьба ногами не пинать - я только перехожу на Дельфи

Когда описываешь sss в implementation название пиши так:

Код

procedure TForm1.sss(lab: tlabel);  begin ...

Т.к. это ф-я класса TForm1. (overload писать не надо. Ни здесь, ни в public секции... А советовали ее написать потому, что у тебя было описано 2 ф-ции с именем sss, потому ты и получал ошибку "previos declaration of 'sss' was not marked with the 'overload' directive")

Спасибо товарищи!!
Как все на самом деле просто..