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