Forum: Object-Pascal / Delphi-Language
Delphi
by Bummi,
21. Mär 2011
Da ist tatsächlich ungefähr das 12 fache an Code drin, von dem was gebraucht würde.
Darf ich Dir bei den Blockern helfen?
1. Nur darstellen wenn etwas gültiges da ist...
Function tagesumrechnung(tag:string; var da:integer):Boolean;
begin
Result := TryStrToInt(tag,da)
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Bummi,
13. Mär 2011
geht auch anders und ist ohne Schaltjahrberücksichtigung
const
MTArray:Array of Integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var
a,b,c:Integer;
begin
SgAnzeige.Cells := 'Tag';
SgAnzeige.Cells := 'Termine';