UNIT parte 2

25/02/2003

2

Quero criar uma unit para validar este código:

var
Arq: String;
Str: TStringList;
begin
Str:= Nil;
Arq:= ExtractFilePath( Application.ExeName ) + ´Banco.hav´ ;

If FileExists( Arq ) then
begin
try
Str:= TStringList.Create;
Str.LoadFromFile( Arq );
DB.DatabaseName:= Trim( Str[0] );
finally
Str.Clear;
Str.Free;
end;
end;


Uma unit que trate o Application, pois está dando erro e eu nao sei como começar a cria r uma unit.
Tenho uma unit que trata isso só que é de um projeto que não tenho acesso aos fontes, por isso sei que é possível.


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar