Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Recordar texto de un TEdit (https://www.clubdelphi.com/foros/showthread.php?t=88798)

albelg 02-08-2015 01:29:37

Recordar texto de un TEdit
 
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 02-08-2015 01:45:58

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

Casimiro Notevi 02-08-2015 02:00:45

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

albelg 02-08-2015 02:17:12

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 02-08-2015 03:12:41

Busca por IniFile


nlsgarcia 02-08-2015 04:43:56

albelg,

Cita:

Empezado por albelg
...no se como guardar en un fichero .ini ni como leerlo...

:rolleyes:

Revisa este código:
Código Delphi [-]
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:





Revisa esta información:
Espero sea útil :)

Nelson.

albelg 02-08-2015 14:01:48

muchas gracias a todos ,realmente me sirvio de mucho.


La franja horaria es GMT +2. Ahora son las 14:55:04.

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