Thema: Delphi Speichern ohne txt.

Einzelnen Beitrag anzeigen

Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#5

Re: Speichern ohne txt.

  Alt 24. Sep 2008, 17:16
Ihr versteht ihn alle nicht oder?

Um den Inhalt einer ComboBox "intern" zu speichern musst du so vorgehen:

Delphi-Quellcode:
type
  TForm1 = class(TForm)
    Button1: TButton;
    ComboBox1: TComboBox;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    Sicherung: TStringlist;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Stringliste muss erstellt werden bevor sie benutzt wird...
procedure TForm1.FormCreate(Sender: TObject);
begin
  Sicherung:= TStringlist.Create;
end;

// und wenn sie nichtmehr gebraucht wird, muss sie freigegeben werden.
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Sicherung.Free;
end;

// "Speichern"
procedure TForm1.Button1Click(Sender: TObject);
begin
  Sicherung.Assign(ComboBox1.Items);
end;

// "Laden"
procedure TForm1.Button3Click(Sender: TObject);
begin
  ComboBox1.Items.Assign(Sicherung);
end;

// Combobox Leeren
procedure TForm1.Button2Click(Sender: TObject);
begin
  ComboBox1.Clear;
end;
Generell speichert man Dinge einfach in Variablen. Einen String, in einer Stringvariablen, einen Integer in einer Integervariable etc. Ganz viele Strings kann man entweder in einem Array of String speichern oder eben in einer TStringlist.
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat