Ergebnis der Suchanfrage

• Forum: Datenbanken

  Funktion mit eine Liste :TStrings

    Delphi
    by Karstadt, 14. Mär 2006
  Function Tf_hauptfenster.GibLagerListe: TStrings;
  var Lagerliste: TStrings;
  begin
  Lagerliste := TStringList.Create;
  with dm.mqr_TEMP do
  begin
  Close;
  Sql.Clear;
  sql.Add('SELECT * FROM lager ORDER BY lg_bezeichnung ASC');
  open;