Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var spalte, zeile, i, j: real;
zahl: char;
begin
memo1.Clear;
spalte := strtoint (labelededit2.Text);
zeile := strtoint (labelededit3.Text);
zahl := strtoint (labelededit1.Text);
i := 0 ;
repeat
i := i + 1;
for j := 0 to zeile do
until i := zeile ;
end;
So Leute Ich muss für die Schule in ein Memofeld ein/e Zahl/Buchstaben in beliebiger Anzahl von Spalten und Zeilen ausgeben. Dass soll ich jetzt mithilfe einer geschachtelten Schleife durchführen!! Wie bekomme ich das hin? Ich habe euch mal meinen Programmansatz gegeben.