815:
816:
817:
818:
819:
820:
821:

{ ... }
  ListView1.Items.BeginUpdate;
  try
    ListView1.Items.Clear;
    { Hier das ListView füllen }
  finally
    ListView1.Items.EndUpdate;
  end;					

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

fPersonalReadQuery.Connection := Sys.ADOConnection;
  fPersonalReadQuery.SQL.Text := 'SELECT Personal.*, '
                                        +'Park.*, '
                                        +'Bereich.*, '
                                        +'Abteilung.*, '
                                        +'Beschaeftigung.*, '
                                        +'Status.* '

                                        +'FROM tbl_personal AS Personal INNER JOIN tbl_parkplaetze AS Park ON Personal.parkplatz_id = Parkplatz.id_parkplatz '
                                        +'INNER JOIN tbl_bereiche AS Bereich ON Park.bereich_id = Bereich.id_bereich '
                                        +'INNER JOIN tbl_abteilungen AS Abteilung ON Personal.abteilung_id = Abteilung.id_abteilung '
                                        +'INNER JOIN tbl_status AS Status ON Personal.status_id = Status.id_status '
                                        +'INNER JOIN tbl_beschaeftigung AS Beschaeftigung ON Personal.beschaeftigung_id = Beschaeftigung.id_beschaeftigung';
  fPersonalReadQuery.Open;  //SQL-Abfrage starten
  fPersonalReadQuery.First;					

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

  fPersonalReadQuery.SQL.Text := 'SELECT Personal.*, '
                                        +'Park.*, '
                                        +'Bereich.*, '
                                        +'Abteilung.*, '
                                        +'Beschaeftigung.*, '
                                        +'Status.* '

                                        +'FROM tbl_personal AS Personal, tbl_park as Park, tbl_bereich as Bereich .... '
                                        +'where INNER JOIN tbl_parkplaetze AS Park ON Personal.parkplatz_id = Parkplatz.id_parkplatz '
                                        +' and INNER JOIN tbl_bereiche AS Bereich ON Park.bereich_id = Bereich.id_bereich '
                                        +'and INNER JOIN tbl_abteilungen AS Abteilung ON Personal.abteilung_id = Abteilung.id_abteilung '
                                        +'and INNER JOIN tbl_status AS Status ON Personal.status_id = Status.id_status '
                                        +'and INNER JOIN tbl_beschaeftigung AS Beschaeftigung ON Personal.beschaeftigung_id = Beschaeftigung.id_beschaeftigung';
  fPersonalReadQuery.Open;  //SQL-Abfrage starten
  fPersonalReadQuery.First;					

1:
2:
3:
4:
5:
6:

type
  myRecord = Record
    Kenzzeichen : String;
    Personalnummer : Integer;
  end;
  myRecords = Array of myRecord;					

1:
2:
3:
4:
5:
6:

procedure TForm1.FormShow(Sender: TObject);
var x : Integer;
begin
  x := TKennzeichen.RecordCount;
  SetLength(myRecords, x)
end;					

1:

  myRecords[x].Kenneziechen := ...     // lesen und schreiben ist möglich					

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

...
var Personalnr : Integer;
    Kennz : String;
begin
  Kennz := '';
  for i := 0 to myRecords.RecordCount do 
  begin
    if myRecords[i].Personalnummer = Personalnr then ID Kennz := myRecords[i].Kennzeichen;
    ShowMessage(Kennz);
  end;
end;					

1:

    if myRecords[i].Personalnummer = Personalnr then ID Kennz := Kennz + myRecords[i].Kennzeichen;