22.02.2009, 16:52
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
С нами:
9152717
Репутация:
6
|
|
Сообщение от nilux
вот я например очищаю так эдиты, может поможет
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
tc :TComponent;
i:Integer;
begin
For i:=1 to 10 do begin
tc:= FindComponent('Edit' + inttoStr(i));
(tc as TEdit).Text:='';
end;
end
Во спс, помогло!
А вот еще столкнулся с проблеммой. Делаю прогу типо радмина через сокеты (Tserversocket, Tclientsocket) Так вот если пытаюсь приконнектится по сети или по инету с внешним IP, то все норм, но как реализовать коннект если сервер находится за NAT'ом?
З.Ы. пробрасывать порты не предлагать, вот ведь Qip както коннектится если клиент за NAT'ом сидит. Оч прошу помоч
Последний раз редактировалось Maxxxtri23; 22.02.2009 в 16:55..
|
|
|