hallo,
wenn du z.b. auf einen button drückst:
Delphi-Quellcode:
procedure Tform1.button1click(sender:tobject);
var
i: Byte; //dient als zählschleife
begin
for i := 1 to 4 do
case if of:
1: schreibans(edit1.text, 1);
2: schreibans(edit1.text, 2);
3: schreibans(edit1.text, 3);
4: schreibans(edit1.text, 4);
end; //ende für case of schleife
end;
natürlich is das jetzt umständlich geschrieben, müsste aber gehen und ist relativ einfach zu verstehen.
tschüss,
heiopei
ps: geht das jetzt so mit den tags(hab das selber glaub ich auch noch net ausprobiert)
[edit=Luckie]BBCode aktiviert. Mfg, Luckie[/edit]
[edit=Luckie]Tags korrigiert. Mfg, Luckie[/edit]