sry, ich glaub ich bin inzwischen die blödheit in person....
ich krieg das string teilen und in 2 labels ausgeben einfach nicht auf die reihe. ich hab jetzt insgesamt in der prozedur stehen:
Delphi-Quellcode:
procedure tform1.geben;
var
i : integer;
s : string;
lbls : array [0..99] of TLabel;
begin
with unit2.form2 do begin
for i := 0 to 99 do
begin
lbls[i] := TLabel.Create (form2); // Das einzelne Label erstellen (Der Besitzter des Labels, ist normalerweise das Formular, und steht in der Varible "self")
with lbls[i] do begin
Parent := form2;
Top := i*19 ; //dynamischer y-abstand
Left := 19; //statischer x-abstand
Visible := false;
Caption := IntToStr(i + 1);
end;
end;
for i := 0 to z do // labels bis z anzeigen
begin
lbls[i].Visible := true;
end;
for i := z to 99 do // anderen labels nicht anzeigen
begin
lbls[i].Visible := false;
end;
if i>9 then begin
s := inttostr(i);
end;
spielen;
end;
end;
ich kriegs einfach nicht auf die reihe so weiter zu machen das ich die zahlen die größer als 9 sind in 2 benachbarten labels auszugeben. wie mach ich das jetzt am besten?
thx für die ganzen hilfen aber ich kriegs absolut nicht auf die reihe....
-web