Forum: Algorithmen, Datenstrukturen und Klassendesign
by Cyberdine,
26. Mär 2013
Ok vielen Dank für die Info :thumb:
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Cyberdine,
26. Mär 2013
Also währe das so sauberer?
// Button Vertrag suchen
procedure TForm1.ButtonVSuchenClick(Sender: TObject);
begin
Vertrag.Suchen;
EditVVertragsNr.Text := Vertrag.GetVertragsNummer;
end;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Cyberdine,
26. Mär 2013
Das Problem mit "getrennten" Schichten seh ich hier
// Button Vertrag suchen
procedure TForm1.ButtonVSuchenClick(Sender: TObject);
var
stmp : string;
begin
stmp := '';
if (DBVertrag.Suchen(ADOQuery = true)) then