Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Der Name der Datenbank anzeigen in einer ComboBox
Jagg - Do 18.07.02 12:53
Titel: Der Name der Datenbank anzeigen in einer ComboBox
Hallo !
Ich habe viele Datenbanken und die sollen in einer ComboBox angezeigt werden und man sollte sie auswählen können,wie mache ich das ???
und geht das mit einer ComboBox
Titel lt. Richtlinien geändert. Marc
Jagg - Do 18.07.02 12:54
`der name der datenbank soll angezeit werden
Tino - Do 18.07.02 12:55
Weißt Du nicht wie man Einträge in die ComboBox hinzufügt? So z. b.:
Quelltext
1:
| ComboBox1.Items.Add ('Datenbank1'); |
Gruß
Jagg - Do 18.07.02 13:01
das wusste ich nicht,aber ich will ja noch das er alle Datenbanken anzeigt die ich erstellt habe !
Tino - Do 18.07.02 13:05
Wo liegen denn die Datenbanken und wie kann man diese finden? Also heißen die z. b. alle ".db" oder so?
wwerner - Do 18.07.02 13:18
Hallo Jagg,
lies dir bitte mal
das [
http://www.auq.de/viewtopic.php?t=774] durch und stell deine Fragen bitte etwas präziser.
zB.: Wie kann ich alle *.DB Dateien auf meiner Platte in einer combobox auswählen oder
Wie kann ich alee Datenbanken für die ich ein Alias habe in einer combobox auswählen
Gruß
Wolfgang
[/url]
Jagg - Do 18.07.02 13:50
Also,die Datenbanken liegen alle im Verzeichnis "C:\Nguyen\Sonstige\Maling Service\Datenbank\" und das sind alle "dbf"
Jagg !
wwerner - Do 18.07.02 13:55
Sieh mal in der Hilfe unter Findfirst, findnext (sogar mit Beispiel)
Jagg - Do 18.07.02 13:56
ok
Jagg - Do 18.07.02 14:37
ich habe keine ahnung wie das mit findfirst und findnext geht,ich blick da gar nicht durch !
Kann mir da jemand helfen ???
wwerner - Do 18.07.02 14:41
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| var
SearchRec: TSearchRec;
procedure TForm1.SearchClick(Sender: TObject);
begin
FindFirst('c:\Program Files\delphi4\bin\*.*', faAnyFile, SearchRec);
Label1.Caption := SearchRec.Name + ' is ' + IntToStr(SearchRec.Size) + ' bytes in size';
end;
procedure TForm1.AgainClick(Sender: TObject);
begin
if (FindNext(SearchRec) = 0)
Label1.Caption := SearchRec.Name + ' is ' + IntToStr(SearchRec.Size) + ' bytes in size';
else
FindClose(SearchRec);
end; |
Das ist das Beispiel aus der Hilfe. Hast du das mal compiliert und dir angesehen?
Gruß
Wolfgang
Jagg - Do 18.07.02 14:45
gib mir mal die syntax von findfirst und findnext,vllt versteh ich es dann besser !
wwerner - Do 18.07.02 14:49
Findfirst im editor eingeben F1 drücken und dann kommt folgendes:
function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;
....
Jagg - Do 18.07.02 14:53
gib mir mal bitte so ein Beispiel ! *bidde*
Pfad = C:\Nguyen
Dateien *.dbf !
Danke !
Jagg !
wwerner - Do 18.07.02 14:55
FindFirst('C:\Nguyen\*.dbf', faAnyFile, SearchRec);
Jagg - Do 18.07.02 14:59
und wie mache ich das er jetzt in deie ComboBox schreibt ???
ComboBox := FindFirst('C:\Nguyen\*.dbf', faAnyFile, SearchRec); ???
SO ind etwa ???
Jagg !
Tino - Do 18.07.02 15:05
| Jagg hat folgendes geschrieben: |
| SO ind etwa ???! |
Nein! Nimm das Beispiel das Wolfgang (das aus der Delphi-Hilfe) und versuch es in einem neuen Projekt zu kompileren. Dann starte das Programm und versuch zu verstehen was der Code macht. Dann bau den Code so um das die Datenbanken in dem Label anzeigt werden. Im nächsten Schritt versuchst Du dann das das Suchergebnis nicht im Label sondern in einer Combobox landet. Dann hast Du einen gute Ausgangsposition um den Code in Deine Anwendung einzubauen.
Gruß
TINO
Jagg - Do 18.07.02 15:26
so,ich habe das jetzt mit der ComboBox aber er zeigt mir immer nur eine dbf datei an,ich will aber das er alle anzeigt und das man dann mit einem klick auf dem pfeil es auswählen kann
Jagg - Do 18.07.02 15:31
Ich benutze TComboBox oder muss ich DBComboBox oder doch DBLookupComboBox nehemen !
wwerner - Do 18.07.02 15:31
Hast du das gemacht wie Tino geschrieben hat? NEIN! Du kannst das 1. nicht in der Zeit geschaft haben und 2. hast du bestimmt keine while-Scheife und findnext benutzt.
WW
Jagg - Do 18.07.02 15:34
ich habe findnext benutzt aber wo soll da die while schleife sein oder muss ich sie machen !
Jagg - Do 18.07.02 16:09
ich habs combobox.items.add ('Name')
Klabautermann - Do 18.07.02 16:20
Gratuliere.
Und wenn du das jetz mal mit
dem hier [
http://www.auq.de/viewtopic.php?t=751] vergleichst dann wirst du ersteunliche Paralelen feststellen. Das ist der Grund, warum dir so oft geagt wir Lese mal hier und lese mal da. Denn dann würdest du entdecken, das der Teil der die String in einer Listbox speichert Identisch ist mit dem Teil der das in eine ComboBox macht. Es sind beides Objekte von Typ tStings. Und somit kannst du mit dem einen Arbeiten wie mit dem Anderen.
Gruß
Klabautermann
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2024 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!