Скачать: CL | DM;

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

---

← →
ruslan ©   (2004-07-14 15:56) [5]

imya ucetnoy zapisi - s etim ya uze razbiralsya

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c