Thema: Delphi TEdit mit DBEdit?

Einzelnen Beitrag anzeigen

Tharon

Registriert seit: 19. Okt 2004
Ort: Frankfurt/Main
12 Beiträge
 
Delphi 2007 Professional
 
#6

Re: TEdit mit DBEdit?

  Alt 3. Nov 2004, 18:49
Hi!

panTitle.Caption := Format(' Das sind Daten von %s, %s - %s', [edtName.EditText, edtVorname.EditText, edtWasAuchImmerFuerNeNummer.EditText]); Besser finde ich es allerdings, die Daten direkt aus der Datequelle zu nehmen, also nicht über den Umweg von Edits oder was auch immer (auch wenn diese sowieso auf dem Formular vorhanden sein sollten):

Delphi-Quellcode:
ds := Form1.DataSource1.DataSet; // dient nur als Abkürzung

panTitle.Caption := Format(' Das sind Daten von %s, %s - %s', [ds['Name'], ds['Vorname'], ds['Nr']]);
Noch besser mit Berücksichtigung von Null-Werten... auch wenn Du denkst, das kann nicht vorkommen

Delphi-Quellcode:
ds := Form1.DataSource1.DataSet; // dient nur als Abkürzung

panTitle.Caption := Format(' Das sind Daten von %s, %s - %s',
                           [LibVarCvNull(ds['Name'], '???'), LibVarCvNull(ds['Vorname'], '???'), LibVarCvNull(ds['Nr'], '???')]);


function LibVarCvNull(const a_vValue: Variant; const a_vReplace: Variant): Variant;
begin
  if (VarIsNull(a_vValue) or VarIsEmpty(a_vValue)) then
  begin
    Result := a_vReplace;
  end else
  begin
    Result := a_vValue;
  end;
end; // LibVarCvNull
Wenn jetzt z.B. im Feld Vorname nichts drinsteht, wird "Das sind Daten von de Bar, ??? - 1234567" angezeigt und nicht "Das sind Daten von de Bar, - 1234567". Anstatt Fragezeichen kannst du natürlich jeden beliebigen Ersatztext nehmen... der natürlich auch wieder aus der Datenbank kommen könnte...

Vergiss nicht das Leerzeichen am Anfang des Textes, sonst ist der Text nämlich ganz links an den Rand des Panels geklatscht (falls Alignment auf taLeftJustify steht).

Ich hoffe, dass war das, was Du wissen wolltest...
Thomas
  Mit Zitat antworten Zitat