Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   ComboBox mit Daten füllen und in Edit.Text auslesen ? (https://www.delphipraxis.net/174194-combobox-mit-daten-fuellen-und-edit-text-auslesen.html)

floppybe 8. Apr 2013 22:12

ComboBox mit Daten füllen und in Edit.Text auslesen ?
 
Hallo DP'ler,

Ich bastle an meinem Programm und möchte eine ComboBox mit 5 bis 6 Text Elementen befüllen die ich dann in eine
INI Schreiben würde, zur sicherheit will ich aber die Daten auch in ein Edit-Feld Kopieren.

Nun suche ich schon den ganzen abend wie ich Daten in eine ComboBox kriege und diese dann in das Edit-Feld
kopieren kann, finde aber leider mit der SuFu kein Ergebnis.

Ich habe keine Datenbank im rücken sondern nur die ComboBox welche fix Daten bereitstellen soll und das
Edit-Feld.

Könntet Ihr mir dabei weiter Helfen ? Speichern in der INI werde ich dann sicherlich hinbekommen.

Grüsse

Chris

Sir Rufo 8. Apr 2013 22:16

AW: ComboBox mit Daten füllen und in Edit.Text auslesen ?
 
Suchst du das Delphi-Referenz durchsuchenTComboBox.Items?

Aviator 8. Apr 2013 22:17

AW: ComboBox mit Daten füllen und in Edit.Text auslesen ?
 
Wie wärs mit:
Delphi-Quellcode:
Edit1.Text := '';
for I := 0 to ComboBox1.Items.Count -1 do begin
  Edit1.Text := Edit1.Text + ' ' + ComboBox1.Items[I].Text;
end;
oder so ähnlich. Code ist ungetestet sollte aber funktionieren (da nur hier im Editor geschrieben)

floppybe 8. Apr 2013 23:10

AW: ComboBox mit Daten füllen und in Edit.Text auslesen ?
 
Hallo,

bei Item konnte ich nun die erforderlichen Elemente eingeben, aber ich kann es mit dem Source nicht in das Edit
Feld Kopieren. Auch habe ich mal mit dem Versuch gespielt:

Delphi-Quellcode:
Edit1.Text := Combobox1.Item;
Das ergibt aber einen String fehler.

[dcc32 Fehler] fVisualPlugin.pas(89): E2010 Inkompatible Typen: 'string' und 'TStrings'

Gruss

Chris

Sir Rufo 8. Apr 2013 23:18

AW: ComboBox mit Daten füllen und in Edit.Text auslesen ?
 
Logisch,
Delphi-Quellcode:
Items
ist vom Typ Delphi-Referenz durchsuchenTStrings -> kein string

Schau dir die Eigenschaften und Methoden von
Delphi-Quellcode:
TStrings
an, welchen du haben möchtest.
Alles Delphi-Referenz durchsuchenTStrings.Text, oder mit Trennzeichen Delphi-Referenz durchsuchenTStrings.DelimitedText oder eine bestimmte Zeile Delphi-Referenz durchsuchenTStrings.Strings

Achte immer auf den DatenTyp, denn eine Umwandlung passiert nur in den seltensten Fällen.
Ein Blick in die Online-Hilfe F1 lohnt dabei auch immer

floppybe 8. Apr 2013 23:34

AW: ComboBox mit Daten füllen und in Edit.Text auslesen ?
 
Hallo Sir Rufo, Hallo Aviator,

vielen Dank dass Ihr zu so vortgeschrittener Stunde einem Neuling in sachen Delphi weiter Helft.
Leider sehe ich vor lauter Bäumen den Wald nicht mehr bei Deinem Link, Sir Rufo, so habe ich auch wieder
hier im Forum Hilfe gesucht. Vielleicht auch weil ich es nicht ganz verstehe. :?

F1 ist sicher eine Gute Hilfe wenn mann weis nach was mann suchen soll oder auch versteht. :)

Also um es zu verdäutlichen was ich meine, ich habe in den Items von Combobox1 Text eingegeben, dieser soll
auf das Edit1.Text Feld kopiert werden und auch in eine INI geschrieben werden.

Dann sollte es gehen mit:

Delphi-Quellcode:
Edit1.Text := Combobox1.Item.Text;
Oder irre ich mich da wieder gewaltig ? Ich probiers mal gerade aus.

Edit: geht leider so nicht wie erhofft, es werden alle Elemente Kopiert,
obwohl ich nur das eine dass ich ausgewählt habe koppiert werden soll. :(

Gruss

Chris

Sir Rufo 8. Apr 2013 23:40

AW: ComboBox mit Daten füllen und in Edit.Text auslesen ?
 
Delphi-Quellcode:
Edit1.Text := ComboBox1.Items[ ComboBox1.ItemIndex ];
;)
aka
Delphi-Quellcode:
Edit1.Text := ComboBox1.Items.Strings[ ComboBox1.ItemIndex ];
;)

Die Online-Hilfe kann man auch bzgl. Delphi-Referenz durchsuchenTComboBox befragen :mrgreen:


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:30 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz