Einzelnen Beitrag anzeigen

Demon666

Registriert seit: 16. Jun 2010
21 Beiträge
 
Delphi 7 Personal
 
#11

AW: Listenindex Überschreitet das Maximum (3)

  Alt 26. Jun 2010, 21:38
nein, aber ich hab ne prozedur in der FormOptionen geschlossen wird:
Delphi-Quellcode:
procedure TFormOptionen.BtOKClick(Sender: TObject);
var save: Tstringlist; //hier wird gespeichert. reihenfolge: checkbox, buttonhöhe,buttonbreite,Radiogroup"Symbol",RadioGroup"SymbolPosition";
begin
  save:=tstringlist.create;
  if cbleiste.checked then
    save.add('t')
  else
    save.Add('f'); //wenn die checkbox ein häckchen hat ist die erste zeile von save=t ansonsten ist sie f;


  if edbthoehe.text='then
     edbthoehe.value:=0;

  if edbtbreite.text='then
    edbtbreite.Value:=0;

  save.Add(inttostr(edbthoehe.Value)); //speicert die buttonhöhe;
  save.Add(inttostr(edbtbreite.value)); //speichert die buttonbreite;
  save.Add(inttostr(RGSymbol.ItemIndex));
  save.Add(inttostr(RGSymbolPosition.ItemIndex));
  save.SaveToFile('save.txt');
  FormOptionen.Close;
end;
Simon
  Mit Zitat antworten Zitat