Delphi-PRAXiS - Prism Geschachtelte Schleife /Zeile;Spalte

Zitat:

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!