also ich hab mir das jetzt so gedacht, zu umgehen..
auf eine Seite passen 32 Vokabeln+ Überschrift
ich lade einfach immer nur 32 Vokabeln in die Stringlist, durcke, lösche die 32 und lade 32 neu..
ABER.. es klappt nicht, könnt ihr mir vielleicht helfen, woran das liegt?
Delphi-Quellcode:
procedure Tdrucken.Button2Click(Sender: TObject);
var
i, i2, i3:integer;
vokabel,Loesung:string;
sl: TStringlist;
begin
sl:=TStringlist.Create;
sl:=stringlistx;
for i2:=0 to round(sl.Count/32) do
begin
for i:=0 to 32 do
begin
splitstr(sl.Strings[i],'=',Vokabel, Loesung);
Stringgrid1.Cells[1,i+1]:=Vokabel;
Stringgrid1.Cells[0,i+1]:=Loesung;
griddruck(stringgrid1,0,0,1);
for i3:=0 to 32 do begin
sl.Delete(i3); end;
end;
end;
end;