u menya est funksiya kak ispolzovat vipolnyat eqo

← →
ruslan © (2004-07-14 11:37) [0]

Ya novicok v delphi u menya est funksiya obyabil eqo posle

implementation tak

implementation
function DialProvider(connection: string): boolean;
var
........ tocki oboznacaet cto tam est sootvetstvuyusiy zapis koda proqrammi
begin
..........

end;

pri kompliyasiii osibki nen
Teper ya xoco posle najatie button1 eto funksiya vipolnyalsa
Kak eto sdelat

procedure TForm1.Button1Click(Sender: TObject);
begin
????????
dla etoqo cto zdes nado napisat?????
end;

Pojkalyusta pomoqite

← →
Skyle © (2004-07-14 11:47) [1]

Хм...

procedure TForm1.Button1Click(Sender: TObject); begin DialProvider(MySuperConnString); end;
?

← →
ruslan © (2004-07-14 11:55) [2]

procedure TForm1.Button1Click(Sender: TObject);
begin
DialProvider(MySuperConnString);
end;

Dayot osibka
[Error] Unit1.pas(60): Undeclared identifier: "MySuperConnString"

← →
MacroDenS © (2004-07-14 14:55) [3]

Ну дык ты параметр то за чем-то создал, вот и при вызове этой функции указывай строковый параметр, хотя судя по объявлению функции, можно и так:
procedure TForm1.Button1Click(Sender: TObject); begin DialProvider("Строка"); end;

← →
ruslan © (2004-07-14 15:42) [4]

sposibo vam

procedure TForm1.Button1Click(Sender: TObject);
begin
DialProvider("connection");
end;

ona osibks ne daet no tuda nado napisat imya ucetnoy zapisi kak eto ponyat

imya ucetnoy zapisi - s etim ya uze razbiralsya

procedure TForm1.Button1Click(Sender: TObject);
begin
DialProvider("Соединения");
end;

← →
e1_rOmEo (2004-07-14 17:16) [6]

Я даже не стану говорить, что рановато такие программы писать ;))))
Имя учетной записи - это название соединения. Можеш посмотреть в папке "Удаленный доступ" или "Сетевые подключения" на название подключения.

u menya est funksiya kak ispolzovat vipolnyat eqo Найти похожие ветки