FileExists(nombrefichero)
Comprueba si existe un fichero especificado en la ruta especificada, si existe devuelve True, en caso contrario devuelve False.
Ejemplo de utilización:
procedure TformMenuPrincipal.FormCreate(Sender: TObject);
var
fichero : string;
begin
iniciado := false;
fichero := ExtractFilePath(ParamStr(0)) + 'ips.txt';
if FileExists(fichero) then
txtIP.Items.LoadFromFile(fichero);
end;
Unidad SysUtils
Funciones Delphi |