Forum: Object-Pascal / Delphi-Language
Delphi
by mlspider,
3. Mär 2006
Hallo marabu, ist bereits geschehen. Mir selbst hat der Code auch nicht so richtig "gefallen". :lol:
So, ich mache jetzt Feierabend. Mir platzt sonst der Schädel.
Forum: Object-Pascal / Delphi-Language
Delphi
by mlspider,
3. Mär 2006
Die Strings label27.caption und DBEdit21.text sind, wenn die jeweilige Rechnung als bezahlt markiert wurde, gleich und sollte then ausführen. Bei Rechnungen die als nicht bezahlt markiert sind, sollte der else-Zweig ausgeführt werden. Zum vergleichen der beiden Strings verwende ich folgende Funktion:
function vergleicheStringsN(s1, s2:string; n:Word): Boolean;
var i: Word;
function...
Forum: Object-Pascal / Delphi-Language
Delphi
by mlspider,
3. Mär 2006
Erst mal danke für's einrücken. Die Bedingungen 1 bis 5 überprüfen anhand des heutigem Tagesdatum (DateTimePicker1) mit einem festgelegtem Datum (DateTimePicker2 - 6) ob das jeweilige festgelegte Datum überschritten worden sind und setzen den jeweiligen Status. Die Bedingung 6, die mein Problem darstellt, überprüft den jeweiligen Datensatz. Ich habe ein weiteres Label auf der Form zu liegen,...
Forum: Object-Pascal / Delphi-Language
Delphi
by mlspider,
3. Mär 2006
Hallo,
entweder habe ich einen Denkfehler, oder die gesamte Bedingung taugt nichts:
procedure TRechnung.Button3Click(Sender: TObject);
begin
Table1.Next;
DateTimePicker2.Date:=StrToDateTime(DBText4.Caption);
DateTimePicker3.Date:=StrToDateTime(DBText5.Caption);