Datensatz auswählen, mit ListBox oder ComboBox

[abi]

Hallo Albi
bekomme des zwar alles zum laufen aber brauche ich des überhaupt.

Irgendwie stehe ich gerade auf dem Schlauch.

Du hast mir geschreiben.

Zitat:

Und hier ist noch die Query-Abfrage der DB.

Code:

With Query1 Do
  Begin
    Close;
    SQL.Clear;
    SQL.Add('Select * from DBMandanten.db WHERE (MVorname LIKE "'+Label1.Caption+'")'
           +'AND (MName LIKE "'+Label2.Caption+'")');
    open;
  end;

Label1 und Label2.Caption habe ich nur so ausgewählt es können auch ganz einfach Variablen sein

Jetzt hab ich in Label1 'Wilhelm' und in Label2 'Horst' stehen. Jetzt zeigt mir meine Tabelle alle Arbeiter an die Wilhelm Horst hiessen.

Damit sortiere ich doch nur meine Abfrage.

Dann habe ich auch noch deinen Link ausprobiert.

Zitat:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var str: string;
begin
   while pos(';',strl.text) > 0 do
     begin
     listbox1.Items.Add(copy(strl.text, 1, pos(';',strl.text)-1));
     str :=strl.text;
     delete(str,1,pos(';',str));
     strl.text := str
   end;
end;

Aber da brauch ich ja einen TListString und sowas hab ich doch gar nicht. Ausserdem will ich von meiner ListBox raus schreiben nicht rein schreiben.

Dann habe ich noch was probiert.

Zitat:

Zitat von hboy:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;
var
  zeile: Array[0..10] of string[255];

implementation

{$R *.dfm}

const 
sep = ';'; 

procedure zerlegen(s: string); 
var
currentitem:integer; 
i: integer; 

  procedure nextitem;
  begin
    inc(currentitem);
    zeile[currentitem] := '';
  end;

begin
  currentitem :=-1;
  nextitem;
  for i :=1 to length(s) do
  begin
    if s[i] <> sep then
      zeile[currentitem] := zeile[currentitem] + s[i]
    else
      nextitem;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  memo1.Clear;
  zerlegen(edit1.Text);
  for i:=0 to 10 do memo1.Lines.Add(zeile[i]);
end;

end.

Aber damit zerlege ich auch nur das was ich eintippe.

Vielleicht liege ich gerade total falsch. Aber brauche ich das überhaupt alles.

Ich will doch nur meine ListBox oder ComboBox zum Auswählen nehmen. Und dann kann ich doch auch den Index nehmen. Und da ich bei meiner Arbeiter Tabelle eine laufende Varialbe Deklariert habe. Ist dieser doch auch nicht so verschieden zum Index.

Aber ich kann bis jetzt immer noch nichts bei meiner ListBox oder ComboBox auswählen.

Kann des sein das sich mein Problem erübrigen würde wenn ich die EnterpriseVersion hätte.

Denn ich habe in deinem Link einen gefunden, bei dem ging es mit Semikola und dieser hatte Delphi5 Enterprise.

Ich hab ja nur Delphi5 Proffesional.

mfg
abi