Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.323 Beiträge
 
Delphi XE2 Professional
 
#4

Re: ComboBox auswählen + Daten anzeigen

  Alt 5. Jan 2009, 22:17
Hallo,

du könntest eine Ini-Datei aufbauen, die etwa so ausschaut:

Zitat:
[Huber]
Name=Alfons
Nachname=Huber
Alter=100
Ort=Am Arsch der Welt

[Maier]
Name=Irene
Nachname=Maier
Alter=45
Ort=Am Arsch der Welt links
Im OnSelect deiner ComboBox könntest dann das machen:
Delphi-Quellcode:
uses
  ..., Inifiles;

var
  S: String;
  StringList_Name: TStringList;
  IniFile: TIniFile;
  Alter: String;
  Ort: String;

begin
  //Inifile erzeugen
  IniFile := TIniFile.Create('c:\namen.ini');

  //StringList erzeugen
  StringList_Name := TStringList.Create;

  try
    //Nachname aus ComboBox auslesen
    S := ComboBox1.Items.Strings[ComboBox1.ItemIndex];

    //es ginge auch
    //S := ComboBox1.Text;

    //Section auslesen
    IniFile.ReadSectionValues(S, StringList_Name);

    //StringList prüfen
    If StringList_Name.Count > 0 then
      begin
        //Section-Werte auslesen
        Alter := StringList.Values['Alter'];
        Ort := StringList.Values['Ort'];
      end;
  finally
    FreeAndNil(StringList_Name);
    FreeAndNil(IniFile);
  end;
end;
So könntest z. B. die Section "Huber" auslesen, wenn in der ComboBox "Huber" ausgewählt wurde.
Die in der Ini-Datei hinterlegten Werte für Alter und Ort würden dann in den Variablen "Alter" bzw. "Ort" stehen.

(Der Code müsste funktionieren, wenn ich mich jetzt nicht vertippt habe)

[Edit]
StringGrid-Prüfung eingebaut
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat