Editor de parametros dbExpress edição 53
07/09/2004
0
Estou tentando usar o editor de parametros da edição 53 da Revista Clube Delphi, baixei os arquivos, salvei ate ai tudo bem, mas quando tento compilar me aprecem os seguintes erros:
[Warning] uFrConfigDbx.pas(34): Method ´Create´ hides virtual method of base type ´TCustomForm´
[Error] uFrConfigDbx.pas(111): Undeclared identifier: ´ValueFromIndex´
[Fatal Error] Project1.dpr(8): Could not compile used unit ´uFrConfigDbx.pas´
O erros aparecem neste trecho de código
procedure TFrConfigDbx.Salvar;
var
ini: TIniFile;
i: Integer;
psw: string;
Param,valor: string;
begin
{ criptografa senha }
FCon.Params.Values[DATABASENAME_KEY] := ´NovoCaminho\db.gdb´;
with ValueListEditor1.Strings do
begin
Values[szPASSWORD] := Encode(Values[szPASSWORD]);
ini := TIniFile.Create(fn);
try
for i := 0 to Count - 1 do
ini.WriteString(FCon.ConnectionName,
[b:7eb5c211ef] Names[i],ValueFromIndex[i]);[/b:7eb5c211ef]
finally
ini.Free;
end;
end;
end;
Não sei se preciso declarar alguma coisa no uses.
Se eu tiro essa procedure TFrConfigDbx.Salvar;
ele compila normal, somente com alguns warnings.
Uso Delphi 6, se alguem poder me ajudar.
[Warning] uFrConfigDbx.pas(34): Method ´Create´ hides virtual method of base type ´TCustomForm´
[Error] uFrConfigDbx.pas(111): Undeclared identifier: ´ValueFromIndex´
[Fatal Error] Project1.dpr(8): Could not compile used unit ´uFrConfigDbx.pas´
O erros aparecem neste trecho de código
procedure TFrConfigDbx.Salvar;
var
ini: TIniFile;
i: Integer;
psw: string;
Param,valor: string;
begin
{ criptografa senha }
FCon.Params.Values[DATABASENAME_KEY] := ´NovoCaminho\db.gdb´;
with ValueListEditor1.Strings do
begin
Values[szPASSWORD] := Encode(Values[szPASSWORD]);
ini := TIniFile.Create(fn);
try
for i := 0 to Count - 1 do
ini.WriteString(FCon.ConnectionName,
[b:7eb5c211ef] Names[i],ValueFromIndex[i]);[/b:7eb5c211ef]
finally
ini.Free;
end;
end;
end;
Não sei se preciso declarar alguma coisa no uses.
Se eu tiro essa procedure TFrConfigDbx.Salvar;
ele compila normal, somente com alguns warnings.
Uso Delphi 6, se alguem poder me ajudar.
Gameiro
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)