Geschachtelte Schleife /Zeile;Spalte

[IceTube]

Falls du es per Memo machen willst/musst kannst du es so tun...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var spalte,zeile,  j: integer;
    s,m,zahl: string;
    i : integer;
    zeilMax : integer;
begin
//Falsch benannt --> ist die SpaltenGröße
zeilMax := 20;
memo1.Clear;

//Spalte |          |        |
spalte := strtoint (edit1.Text)-1;

//Zeile  -_
zeile  := strtoint (edit2.Text);

//Zahl,Wort,Buchstabe...
zahl   := edit3.Text;

//Spalte
for i := 0 to zeile do begin
Memo1.Lines.Append('');
end;

//Zeile
s := '                                                      ';
m := Copy(s,1,(spalte*zeilMax));
m := m + zahl;

//Ausgabe
j := Memo1.Lines.Count-1;
Memo1.Lines.Strings[j] := Memo1.Lines.Strings[j]+m;
end;

lg