Recordar texto de un TEdit

[albelg]

hola amigos del foro. me gustaria conocer de que forma se puede recordar el valor de un label. O sea, cuando ejecute mi programa por primera vez lleno un label con datos y luego lo cierro y la proxima vez q ejecute dicho programa necesito que permanezca el label con los datos q introduje anteriormente. gracias de antemano

[albelg]

disculpen. no hablo de un label sino de un edit. perdon

[Casimiro Notevi]

Guardándolo al salir y leyéndolo al entrar.
Puedes usar un fichero .ini o una base de datos, etc.

[albelg]

casimiro gracias por responder pero no se como guardar en un fichero .ini ni como leerlo. Si no te es molestia ayudame con eso.

[Casimiro Notevi]

Busca por IniFile

[nlsgarcia]

albelg,


...no se como guardar en un fichero .ini ni como leerlo...

:rolleyes:

Revisa este código:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ShellCtrls, StdCtrls, IniFiles;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

// Salva información de un archivo .ini
procedure TForm1.Button1Click(Sender: TObject);
var
IniFile : TIniFile;
begin
try
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'IniFile.ini' );
IniFile.WriteString('Edits','E1',Edit1.Text);
IniFile.WriteString('Edits','E2',Edit2.Text);
IniFile.WriteString('Edits','E3',Edit3.Text);
finally
IniFile.Free;
end;
end;

// Lee información de un archivo .ini
procedure TForm1.Button2Click(Sender: TObject);
var
IniFile : TIniFile;
begin
try
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'IniFile.ini' );
Edit1.Text := IniFile.ReadString('Edits','E1','');
Edit2.Text := IniFile.ReadString('Edits','E2','');
Edit3.Text := IniFile.ReadString('Edits','E3','');
finally
IniFile.Free;
end;
end;

// Reset Edits
procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Text := EmptyStr;
Edit2.Text := EmptyStr;
Edit3.Text := EmptyStr;
end;

end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, Permite leer y grabar información de un archivo .ini, como se muestra en las siguientes imágenes:

http://i.imgur.com/xStxc0o.gif

http://i.imgur.com/DYwjvyd.jpg

Revisa esta información:

1- Manipulate INI files from Delphi (http://delphi.about.com/od/objectpascalide/a/tinifile.htm)

2- Using INI Files (http://wiki.freepascal.org/Using_INI_Files)

3- Delphi al Límite (IniFiles Página 55) (http://terawiki.clubdelphi.com/Delphi/Manuales/?download=Delphi_al_limite_pdf_.zip)

4- Crear_archivos_INI_pdf_.zip (http://terawiki.clubdelphi.com/Delphi/Manuales/?download=Crear_archivos_INI_pdf_.zip)

Espero sea útil :)

Nelson.

[albelg]

muchas gracias a todos ,realmente me sirvio de mucho.