12 replies to this topic

[Master23]

estaba intendo poner unos parametros de un archivo ini a unos edit no entiendo que hago mal espero que me puedan yudar no habia usado este metodo antes,gracias de antemano.

esto es algo de lo que escribe pero lanza un error expected but found.

delphi

procedure TForm1.FormCreate(Sender: TObject);
var
ini:TiniFile;
begin
ini:=Tinifile.Create('C:\base.ini');
edit1.Text:=ini.ReadString('Basededatos','localhost',string);
edit2.Text:=ini.ReadString('Basededatos','usuario',string);
edit3.Text:=ini.ReadString('Basededatos','contraseña',string);
edit4.Text:=ini.ReadInteger('Basededatos','port',integer);
ini.Free;
end;

[seoane]

delphi

procedure TForm1.FormCreate(Sender: TObject);
var
ini:TiniFile;
begin
ini:=Tinifile.Create('C:\base.ini');
edit1.Text:=ini.ReadString('Basededatos','localhost','');
edit2.Text:=ini.ReadString('Basededatos','usuario','');
edit3.Text:=ini.ReadString('Basededatos','contraseña','');
edit4.Text:=ini.ReadString('Basededatos','port','0');
ini.Free;
end;

[Caral]

Hola

delphi

procedure TForm1.FormCreate(Sender: TObject);
var
ini:TiniFile;
a,b,c,d: String;
begin
try
ini:=Tinifile.Create('C:\base.ini');
a:=ini.ReadString('Basededatos','localhost','');
b:=ini.ReadString('Basededatos','usuario','');
c:=ini.ReadString('Basededatos','contraseña','');
d:=ini.ReadInteger('Basededatos','port','0');
Edit1.Text:= a;
Edit2.Text:= b;
Edit3.Text:= c;
Edit4.Text:= d;
finally
ini.Free;
end;
end;

Saludos

[Master23]

Hola

delphi

procedure TForm1.FormCreate(Sender: TObject);
var
ini:TiniFile;
a,b,c,d: String;
begin
try
ini:=Tinifile.Create('C:\base.ini');
a:=ini.ReadString('Basededatos','localhost','');
b:=ini.ReadString('Basededatos','usuario','');
c:=ini.ReadString('Basededatos','contraseña','');
d:=ini.ReadInteger('Basededatos','port','0');
Edit1.Text:= a;
Edit2.Text:= b;
Edit3.Text:= c;
Edit4.Text:= d;
finally
ini.Free;
end;
end;

Saludos

No entiendo que pasa ahora no lanza errores de código pero ahora cuando va a ejecutar me lanza un error de violación de acceso que puede ser?

[Master23]

delphi

procedure TForm1.FormCreate(Sender: TObject);
var
ini:TiniFile;
begin
ini:=Tinifile.Create('C:\base.ini');
edit1.Text:=ini.ReadString('Basededatos','localhost','');
edit2.Text:=ini.ReadString('Basededatos','usuario','');
edit3.Text:=ini.ReadString('Basededatos','contraseña','');
edit4.Text:=ini.ReadString('Basededatos','port','0');
ini.Free;
end;

No entiendo que pasa ahora no lanza errores de código pero ahora cuando va a ejecutar me lanza un error de violación de acceso que puede ser?

[eduarcol]

Hace tiempo colgue este componente, espero te sirva, es para lo que quieres:

IniEditor

[Delphius]

Hola Master23,
Nos sería de mucha ayuda que nos describas el error textual que te aparece (puedes copiarlos con sólo hacer Crtrl + C) e indicarnos la línea en la que te lo arroja.

Saludos,

[egostar]

A manera de redondear el código mostrado por Seoane y Caral, me permito explicar un poco la función de lectura de archivos INI.

delphi

INI.ReadTIPO(SECCION,IDENT,DEFAULT);

ReadTIPO puede ser de varios tipos ReadString, ReadInteger etc...

SECCION es el grupo de valores que va a contener
IDENT es el nombre del parámetro que identificará el valor que quieres leer.
DEFAULT es el valor que tomará en caso que la función no encuentre el valor del parámetro

Por eso es que tenias un error al querer asignar como si fuese el tipo de una variable en el lugar del valor por omisión y es lo que te han indicado nuestros amigos.

Salud OS

[Delphius]

El asunto Eliseo es que parece que ha cambiado el código por el que recomienda Caral y Seoane y le da violaciones de acceso...

Por ello yo invito a Master23 a que nos describa el error y el código y la línea que lo provoca.

No veo donde puede estar el problema en el código de muestra de Carlos y Domingo.

Saludos,

[Master23]

A manera de redondear el código mostrado por Seoane y Caral, me permito explicar un poco la función de lectura de archivos INI.

delphi

INI.ReadTIPO(SECCION,IDENT,DEFAULT);

ReadTIPO puede ser de varios tipos ReadString, ReadInteger etc...

SECCION es el grupo de valores que va a contener
IDENT es el nombre del parámetro que identificará el valor que quieres leer.
DEFAULT es el valor que tomará en caso que la función no encuentre el valor del parámetro

Por eso es que tenias un error al querer asignar como si fuese el tipo de una variable en el lugar del valor por omisión y es lo que te han indicado nuestros amigos.

Salud OS

Muchisimas gracias por la explicación egostar ahora tengo el tema claro, y gracias  a todos los que me ayudaron en esto.

[Master23]

El asunto Eliseo es que parece que ha cambiado el código por el que recomienda Caral y Seoane y le da violaciones de acceso...

Por ello yo invito a Master23 a que nos describa el error y el código y la línea que lo provoca.

No veo donde puede estar el problema en el código de muestra de Carlos y Domingo.

Saludos,

Ese error no era en el código era más bien un error al tener la aplicación ya iniciada ,pero gracias ya se soluciono con solo cerrar y abrir delphi y volver a intentarlo muchas gracias delphius.

[egostar]

El asunto Eliseo es que parece que ha cambiado el código por el que recomienda Caral y Seoane y le da violaciones de acceso...

Por ello yo invito a Master23 a que nos describa el error y el código y la línea que lo provoca.

No veo donde puede estar el problema en el código de muestra de Carlos y Domingo.

Saludos,

jeje, si amigo, pero contestaba a Master23 ampliando con una breve explicación el código de Seoane y Caral y pues me tardé por lo que se publicó debajo de tu intervención

Salud OS

[eduarcol]

El asunto Eliseo es que parece que ha cambiado el código por el que recomienda Caral y Seoane y le da violaciones de acceso...

Por ello yo invito a Master23 a que nos describa el error y el código y la línea que lo provoca.

No veo donde puede estar el problema en el código de muestra de Carlos y Domingo.

Saludos,

Ese error no era en el código era más bien un error al tener la aplicación ya iniciada ,pero gracias ya se soluciono con solo cerrar y abrir delphi y volver a intentarlo muchas gracias delphius.

un Access Violation se refiere a un objeto no creado, ten cuidado que eso no se quita al cerrar y abrir delphi, al menos a mi no me ha sucedido