Zitat von
Muddy:
...bedeuten sollen. Kannste mal noch erklären, was Bei der PRozedur so geschieht?
Also gut...dann versuch ich das einmal...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var spalte,zeile, j: integer;
s,m,zahl: string;
i : integer;
SpaltenBreite : integer;
begin
//SpaltenBreite(vorher "zeilMax"): Wie breit soll eine Spalte sein? Natürlich musst du aufpassen
//auf die Breite(Width) vom MemoFeld...
SpaltenBreite := 20;
//Lösche Memo
memo1.Clear;
//Spalte | | |
Spalte := strtoint (edit1.Text)-1;
//Zeile -_
zeile := strtoint (edit2.Text);
//Zahl,Wort,Buchstabe...
zahl := edit3.Text;
//Zeile: Hier geht das Programm zu der von dir eingegeben Zeile
for i := 0 to zeile do begin
Memo1.Lines.Append('');
end;
//Spalte: Hier wird die Spalte ausgesucht
s := ' ';
//Kopiere den Abstand - somit kommt man zu der gewünschten Spalte
m := Copy(s,1,(spalte*SpaltenBreite));
//Der Abstand + dein Wort, Buchstabe oder deiner Zahl die erscheinen soll in der Spalte
m := m + zahl;
//Ausgabe in die richtige Zeile und der richtigen Spalte
j := Memo1.Lines.Count-1;
Memo1.Lines.Strings[j] := Memo1.Lines.Strings[j]+m;
end;
So, verständlicher kann ich das und will ich das nicht erläutern.
Gutes Gelingen!