Wieder Funktionen, ich lerne es nie ;(

[heiopei]

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]