Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
15. Mär 2007
Hallo,
angenommen du hast deine Labels bereits alle erzeugt und sie stehen in einer TComponentList bereit:
procedure ShowDigits(
cl: TComponentList; // Liste mit den Labels
const number: Cardinal; // darzustellende Zahl
var index: Integer // erster zu verwendender Label
);
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
6. Mär 2007
Hallo,
das Prinzip ist einfach:
function LabelToPoint(lbl: TLabel; index: Integer): TPoint;
const
MarginLeft = 20;
MarginTop = 30;
LabelCols = 9;
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
1. Mär 2007
Hallo,
da bei z = 99 nicht gut alle Zahlen in einer Zeile angezeigt werden können, zielt alles auf eine zweidimensionale Darstellung hin. Dabei könnte die Komponente TStringGrid (Palettenseite "Zusätzlich") ganz hilfreich sein.
Grüße vom marabu