1:
2:
3:
4:

if Table1.FindKey([Nachname]) then
  Vorname := Table1.FieldByName('Vorname')
else
   ShowMessage('Der Nachname '+Nachname+' existiert nicht.');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.FormActivate(Sender: TObject);
begin
rich.Lines.clear;
count := 0;
max := data1.table1.FieldDefs.Count;
while (count < max ) do
begin
  listbox1.items.add(data1.table1['Nachname']);
  data1.table1.Next;
  inc(count);
end;//while
end;//Form activate					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.ListBox1Click(Sender: TObject);
var sel: integer;
begin
sel := listbox1.ItemIndex;
nachname := listbox1.Items.Strings[sel];

//if data1.Table1.FindKey([???]) then
Vorname := data1.Table1.FieldByName('vorname').asstring; //Hier brauch ich eben irgendwoher den Index der Zeile

// Ist nur zum anzeigen, was ich gelesen habe, bevor es weiterverarbeitet wird :
rich.lines.clear;
rich.lines.add('Nachname = ' + nachname + '(' + inttostr(sel) +') ... Vorname = ' + vorname);
end; //Listboxclick					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.FormActivate(Sender: TObject); 
begin 
rich.Lines.clear; 
//count := 0; 
//max := data1.table1.FieldDefs.Count; Zählt die Felder!
data1.table1.open;
data1.table1.first;
while not data1.table1.eof() do 
begin 
  listbox1.items.add(data1.table1.Fieldbyname('Nachname').asstring); 
  data1.table1.Next; 
//  inc(count); 
end;//while 
data1.table1.close;
end;//Form activate					

1:
2:
3:
4:
5:
6:
7:
8:

if FirstTime then
begin
   FirstTime := False;
   { hier alles, was nur einmal ausgeführt werden soll }
end
else begin
   { hier alles, was bei jeder Aktivierung ausgeführt werden soll }
end;					

1:
2:
3:
4:
5:

if data1.Table1.FindKey([nachname]) then
   vorname := data1.Table1.FieldByName('name').asstring
else
  { Nachname nicht gefunden }
  ...;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.ListBox1Click(Sender: TObject);
var sel: integer;
begin
sel := listbox1.ItemIndex;
nachname := listbox1.Items.Strings[sel];

data1.table1.Open;

if data1.Table1.FindKey([nachname]) then vorname := 
data1.Table1.FieldByName('name').asstring else showmessage('Fehler');

data1.table.close;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Table1.first;
while not table1.eof do
begin
  listbox1.items.add(table1.fields.fields[0].AsString);  //Spalte"nachnamen"
  listbox2.items.add(table1.fields.fields[1].AsString);  //Spalte "vornamen"
  table1.next;
end; // END OF while (table1)

listbox1OnClick ()
begin
  listbox2.itemindex := listbox1.itemindex;
end;