TEdit mit DBEdit?

[Tharon]

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...