Einzelnen Beitrag anzeigen

Maxi

Registriert seit: 9. Sep 2013
23 Beiträge
 
#28

AW: Eingaben individuell abspeichern

  Alt 13. Sep 2013, 16:05
Da stellt sich mir gleich die nächste Frage...

Delphi-Quellcode:
var
  Form1: TForm1;
    List1: TStringlist;
    List2: TStringlist;
    List3: TStringlist;
  Dateiname: string;
  ComboBox1:integer;
  ComboBox2:string;
  Combobox3:String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  List1 := TStringlist.Create;
  try
    List1.Add(Edit1.Text);
    List1.Add(Edit2.Text);
    Dateiname := Format('C:\Users\Maxi\Desktop\Dateinmanager\%s.txt', [Edit1.Text+Edit2.Text]);
    List1.SaveToFile(Dateiname);
  finally
    list1.Free;

  List2 := TStringlist.Create;
  try
    List2.Add(ComboBox1.Text);
    list2.add(ComboBox2.text);
    Dateiname := Format('C:\Users\Maxi\Desktop\Dateinmanager\%s.txt', [Edit1.Text+Edit2.Text]);
    List2.SaveToFile(Dateiname);
  finally
    list2.Free;


     ComboBox3.Items.Add(Edit1.Text+edit2.Text);
end;

end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  List3 := TStringlist.Create;
  try
    List3.Add(ComboBox3.Text);
    Dateiname := Format('C:\Users\Maxi\Desktop\Dateinmanager\Oeffnen\%s.txt', [ComboBox3.Text]);
    List3.SaveToFile(Dateiname);
  finally
    list3.Free;


end;

end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if OpenDialog1.Execute then Combobox3.Items.LoadFromFile('C:\Users\Maxi\Desktop\Dateinmanager');
end;

end.
Das ist jetzt mein quellcode, mit allem was ich bissher ereichen wollte...

Nun möchte ich per Buttonclick die gespeicherten Daten (bzw erst Namen) in eine Combobox verfrachten...dort möchte ich Einen Namen auswählen können und denn die Infos zu dem Namen in die entsprechenden eingabefelder drinne stehen haben....geht das und wenn ja,wie ?

ich entschuldige mich wirklich für meine hundert fragen...aber wir hatten das in der schule informatik und mich hat das so fastziniert dass ich mir delphi von meiner lehrerin gegeben haben lassen ,um zuhause an eigene projekte zu arbeiten...

für diese ,mir schon eretielte,Unterstützung sage ich schonmal danke !
  Mit Zitat antworten Zitat