Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Abstract error. (https://www.clubdelphi.com/foros/showthread.php?t=58505)

rauros 22-07-2008 18:32:49

Abstract error.
 
Root:=InstCDPath, que es un string del registro.
Exactamente:
c:\program files\ultima online 2d

No entiendo que es lo que falla, pero ni crea login.cfg ni ejecuta client.exe .

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Root: String;
begin
  With TRegistry.create do begin
    rootkey:=HKEY_Local_machine;
    if OpenKey('SOFTWARE\Origin Worlds Online\ultima online\1.0',false) then begin
      root:=ReadString('InstCDPath');
    end;
  end;
  With TStrings.create do begin
    add(';Login del servidor UoDm www.uodragonesmuertos.es.tl');
    add('LoginServer=dragones-muertos.no-ip.org');
    SaveToFile(root+'\login.cfg');
  end;
  shellapi.ShellExecute(form1.ClientHandle,nil,PChar(root+'\client.exe'),nil,nil,SW_SHOWNORMAL);//Abstract  Error
end;

jorge82 22-07-2008 18:44:44

La clase TStrings es una clase abstracta, es decir no se puede instanciar un objeto de esa clase, solo pueden derivarse nuevas clases a partir de ella.

Al ser una clase abstracta e intentar crear un objeto de ella, se genera el error 'Abstract Error'.

Puedes utilizar la clase TStringList para el mismo proposito.

--
Un saludito.


La franja horaria es GMT +2. Ahora son las 06:18:59.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi