ListBox

[shader]

Schönen guten Morgen,
Ich bin grad dabei mich in Delphi einzulernen.
Jetzt mach ich so ein paar Grundlagen Aufgaben.
Komme aber grad net mehr weiter, ich habe eine ListBox
in der ein paar datensätze stehen. Jetzt möchte ich, das
wenn ein Datensatz angeklickt wurde, der Text in nem Editfeld steht.
Hab jetzt schon stundenlang im INet nach nem Tutorial gesucht, aber
nirgends wird sowass beschrieben bzw. erwähnt. Vielleicht kennt ja
jemand von euch sowass. oder Kann mir bei meinem Problem helfen.
Danke

[Aurelius]

versuchs mal hiermit: Listbox.Items.Strings[Listbox.ItemIndex]

[Nuclear-Ping]

Zitat von shader:

[...]Hab jetzt schon stundenlang im INet nach nem Tutorial gesucht, aber
nirgends wird sowass beschrieben bzw. erwähnt.[...]

http://www.google.de/search?hl=de&q=...le-Suche&meta= ... sogar mit Video.

[shader]

Vielen Dank für die Links.
Das ist mein derzeitiger Code, nur ich möchte nur den ausgewählten
Datensatz in dem Editfeld anzeigen. Bei mir werden da grad alle angezeigt.

Delphi-Quellcode:

begin
  edt_farben.Text := lst_farben.Items.Text;
end;

[oldmax]

Hi
Der Vollständigkeithalber
Im Objektinspektor (Oft auch abgekürzt OI) kannst du unter Ereignisse verschiedene Verhaltensweisen bei Ereignissen des Objektes definieren. z.B. für diesen Fall das Ereignis OnChange
Ein Doppelklick in das freie Feld neben OnChange und dann hast du den Rahmen für deine nächsten Schritte. Sieht aus, wie eine Procedure und stellt sich auch so dar.

Delphi-Quellcode:

Procedure TMYForm.Lst_FarbenOnChange(Sender : TObject);
begin

end;

Ich hofe, ich hab den Kopf richtig geschriebeb, aber mangels installiertem Delphi kann ich's nicht prüfen.
Du schreibst nun zwischen Begin und End deine Anweisungen z.B.
Edt_Farben.Text:=Lst_Farben.Items[Lst_Farben.ItemIndex]; ItemIndex wird mit dem Zeiger beim Anclicken auf die markierte Zeile gesetzt.
Die Information sollte für die ersten Schritte genügen. Probier auch mal die anderen Ereignisse aus.
Edit : Eben mal angepasst....
Gruß oldmax

[shader]

Vielen Dank, hat perfekt geklappt.
@oldmax Dank auch an Dich für die super Erklärung

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edt_Farben.Text:=Lst_Farben.Items[Lst_Farben.ItemIndex];
end;

[shader]

Hab mal noch ne Frage, unzwar hab ich jetzt mit Hilfe ner
Schleife die Zahlen 1-10 in meine Liste eingetragen.
Jetzt soll ich eine function schreiben, die die ungeraden
Zahlen rauslöscht. Ich hänge grad an der function, hat da
jemand vielleicht eine Idee!?

Delphi-Quellcode:

function ungerade (zahl:integer): boolean;
begin
  if (zahl div 2)  //und dann weiß ich nicht weiter
end;

[jfheins]

Der operator mod gibt dir den Rest einer Division - wenn du nun den Rest einer Division durch 2 berechnest bekommst du ... bei einer geraden Zahl und ... bei einer ungeraden Zahl

[Nuclear-Ping]

Markier doch mal deine ListBox auf der Form und drücke F1. Für die grundlegensten Sachen gibt dir die Hilfe schon ne Menge Auskunft.

[shader]

@ jfheins

Zitat:

Der operator Schau in die Delphi-Hilfemod gibt dir den Rest einer Division - wenn du nun den Rest einer Division durch 2 berechnest bekommst du ... bei einer geraden Zahl und ... bei einer ungeraden Zahl Wink

(zahl mod 2) bei gerader Zahl = kein Kommawert
(zahl mod 2) bei ungerader Zahl = ein Kommawert

Nur wie bekomm ich das jetzt in eine logische Gleichung!?


@NuklearPing

Zitat:

Markier doch mal deine ListBox auf der Form und drücke F1. Für die grundlegensten Sachen gibt dir die Hilfe schon ne Menge Auskunft.

Ich weiß ja wie ich die dann Rauslöschen kann glaube ich jedenfalls. Aber
werds mir trotzdem mal zu Herzen nehmen.