Einzelnen Beitrag anzeigen

IceTube
(Gast)

n/a Beiträge
 
#12

Re: Geschachtelte Schleife /Zeile;Spalte

  Alt 9. Jun 2008, 18:24
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!
  Mit Zitat antworten Zitat