Problema con ficheros ini

[Suriu]

Esta es la imagen del mensaje anterior

[Casimiro Noteví]

Mejor que pongas el código y el texto del mensaje.

[Suriu]

roman es que estaba colgando la image

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,inifiles, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 Unastring: string;
 Unablee: Boolean;
 IneFex: TIniFile;
begin
  IneFex := TIniFile.Create('\Hola.dat');
  Unastring := IneFex.ReadString('CRCRegistro','General','');
  Edit1.Text := Unastring;
  IneFex.Free;
end;

end.

[Casimiro Noteví]

¿Y qué te lee?.
¿Estás seguro que estás leyendo \hola.dat ?

[Suriu]

Casimiro el mensaje dice así

visto desde la opcion evaluar/mirar de debug

IneFex.ReadString('CRCRegistro','General','') = Inaccessible value

y en el edit me muestra un 53.

[Casimiro Noteví]

Pues así, a bote pronto, se me ocurre que estés leyendo un hola.dat que no es el que crees que estás leyendo.

[WkaymQ48]

Empezado por Suriu

Casimiro el mensaje dice así



y en el edit me muestra un 53.

El mensaje "Innacesible value" se debe a que delphi al compilar el código lo "optimiza" y covierte esto:

Código Delphi [-]
  Unastring := IneFex.ReadString('CRCRegistro','General','');
  Edit1.Text := Unastring;

En "algo" como esto:

Código Delphi [-]
  Edit1.Text := IneFex.ReadString('CRCRegistro','General','');

Eliminando la variable "Unastring" del ejecutable final.

Por otro lado, como te dice casimiro, comprueba que el archivo .ini esta en el raiz del disco es decir en C:\Hola.dat que es lo que esta indicando en tu código.

[Suriu]

Gracias a todos muchachos, WkaymQ48 lo e probado y funciona de maravillas.