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

alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario