ListBox mit ini

René R.Fo. · Beiträge: 116 Win7 Delphi5 Delphi2005

Hallo
Ich habe eine ini Datei und Eine Listbox jetzt möchte ich in der ListBox (einen Später eingefügten Eintrag) und in der ini Datei Stehen der Name die in der ListBox angezeigt Wert, nun möchte ich einen weiteren Namen in die ini Datei Setzen die in einen Edit Kommen soll wenn ich denn Namen Anklicke.
Die ini Datei ist dafür da wenn ich das Programm neu Starte das in der ListBox die Namen stehen.
Die ListBox ist Namen Sortiert.
(Habe Delphi5)

_________________
If Promille or Cannabis.Volumen > IQ then
dec(Gehirnzellen.Anzahl);

DonManfred · Verfasst: Di 15.09.09 14:21

Es mag ja sein, das eine 4 ausreichend ist; ausreichend ist bestanden, bestanden ist gut und gut ist 2

ABER

deine Problemstellung ist mangelhaft. Mangelhaft ist 5 und ungenügend für eine Problemstellung. Ungenügend ist 6.

Was ich damit sagen will; ich habe nicht wirklich verstanden was Du nun von uns willst. Du solltest deine Problemstellung vielleicht etwas genauer spezifizieren und auch Beispielcode anfügen, wo es hakt. Dann können wir evtl. auch helfen.

_________________
Gruss Manfred

René R.Fo. · Beiträge: 116 Win7 Delphi5 Delphi2005

DonManfred hat folgendes geschrieben :

Es mag ja sein, das eine 4 ausreichend ist; ausreichend ist bestanden, bestanden ist gut und gut ist 2

ABER

deine Problemstellung ist mangelhaft. Mangelhaft ist 5 und ungenügend für eine Problemstellung. Ungenügend ist 6.

Ok

Zitat:

Was ich damit sagen will; ich habe nicht wirklich verstanden was Du nun von uns willst. Du solltest deine Problemstellung vielleicht etwas genauer spezifizieren und auch Beispielcode anfügen, wo es hakt. Dann können wir evtl. auch helfen.

In einer ini datei werden 2Texte gespeichert einer der beiden wird in einer ListBox angezeigt wenn der Text angeklickt wird soll der andere Edit der andere Text angezeigt werden.
Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

     ini := TIniFile.Create('c:\Chat.ini');
     ini.WriteString('ListBox','Name',Edit2.Text);
     ini.WriteString('ListBox','IP',Edit1.Text);
     ListBox1.Items.Append(Edit2.Text);
     Edit1.Text := '';
     Edit2.Text := '';

das ist mein bisheriger Code
nun möchte ich wenn ich den Text(Edit2) ancklikwen das der text aus Edit1 in Edit3 Angezeigt wirt.
verstanden?
wie soll ich das machen? Bitte mit Code Text

jaenicke · Verfasst: Mi 16.09.09 06:19

René R.Fo. hat folgendes geschrieben :

nun möchte ich wenn ich den Text(Edit2) ancklikwen das der text aus Edit1 in Edit3 Angezeigt wirt.
verstanden?

In OnClick:

markieren

Delphi-Quelltext

1:	Edit3.Text := Edit1.Text;

Meinst du das?

René R.Fo. · Beiträge: 116 Win7 Delphi5 Delphi2005

Nein ich habe mich nicht richtig ausgedrückt Eschuldigung :oops:

Edit1 ist ein Text z.B. 'Hallo'.
Edit2 ist ein Text z.B. 'bb'.
in der ListBox wird bb angezeigt und wenn ich ihn anklicke soll im Edit3 bb angezeigt werden.
In der ini Datei werden die Texte aus Edit1 und Edit2 gespeichert.
in der ListBox werden immer wider neue Texte eingegeben
Das Problem:
Wenn in der ListBox bb angeklickt wird das im Edit3 Hallo angezeigt wird.

_________________
If Promille or Cannabis.Volumen > IQ then
dec(Gehirnzellen.Anzahl);

Narses · Verfasst: Mi 16.09.09 22:29

Moin!

Das ist relativ leicht lösbar:

Sagen wir mal, deine Listbox heißt Namen: TListBox
Dann erstellst du eine Stringliste Werte: TStringList, in der du die zugehörigen Werte speicherst
Wenn du jetzt das Pärchen "Hallo" / "bb" anfügen möchtest, dann kommt der Name in die Listbox Namen.Add('Hallo'); und der Wert in die Stringliste Werte.Add('bb');
Wenn du nun beim Klick in die Listbox den Wert zum Namen auslesen willst, brauchst du diesen Code im OnClick-Handler der Listbox: Edit3.Text := Werte.Strings[Namen.ItemIndex];

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

René R.Fo. · Beiträge: 116 Win7 Delphi5 Delphi2005

Danke aber die ListBox ist Namensortiert

René R.Fo. hat folgendes geschrieben :

Die ListBox ist Namen Sortiert.

_________________
If Promille or Cannabis.Volumen > IQ then
dec(Gehirnzellen.Anzahl);

Narses · Verfasst: Do 17.09.09 14:39

Moin!

René R.Fo. hat folgendes geschrieben :

Danke aber die ListBox ist Namensortiert

Kein Problem

dann speicherst du im .Objects[] des Listboxeintrags den Index in der Werte-Stringliste und greifst darüber zu. :idea:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

René R.Fo. · Beiträge: 116 Win7 Delphi5 Delphi2005

Wo sol ich das einsetzen? :?:

köntest du das bite mit denn Cod schreiben?

_________________
If Promille or Cannabis.Volumen > IQ then
dec(Gehirnzellen.Anzahl);

Narses · Verfasst: Do 17.09.09 20:09

Moin!

René R.Fo. hat folgendes geschrieben :

Wo sol ich das einsetzen? :?:

köntest du das bite mit denn Cod schreiben?

Hui, du hast aber eine interessante Ottographie

Pärchen "Hallo" / "bb" anfügen: Namen.AddObject('Hallo',Pointer(Werte.Add('bb')));
Wert zum Namen auslesen: Edit3.Text := Werte.Strings[Integer(Namen.Objects[Namen.ItemIndex])];

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme