ComboBox per Hand füllen

[NickelM]

So hab ichs in ne anwendung von mir gemacht. Ich vieleicht Verbesserungs- und Vereinfaschungsfähig.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Zeilen : Integer;
begin
Inifile.WriteInteger('Signatur','SignaturZeilen',Memo1.Lines.Count);
for Zeilen := 0 to Memo1.Lines.Count - 1 do
Inifile.WriteString('Signatur','Signatur' + IntToStr(Zeilen),Memo1.Lines[Zeilen]);
end;

procedure TForm1.FormCreate(Sender: TObject);
var Zeilen : Integer;
    Zeilen1 : Integer;
begin
Zeilen1 := Inifile.ReadInteger('Signatur','SignaturZeilen',0);
Memo1.clear;
for Zeilen := 0 to Zeilen1 - 1 do
Memo1.Lines.Add(Inifile.ReadString('Signatur','Signatur' + IntToStr(Zeilen),''));
end;

end.

oder wenn du die Anwendung beendest werden alle Forms destroyed.

Deshalb OnDestroy