Geschachtelte Schleife /Zeile;Spalte

[Muddy]

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var spalte, zeile, i, j: real;
    zahl: char;
begin
memo1.Clear;
spalte := strtoint (labelededit2.Text);
zeile  := strtoint (labelededit3.Text);
zahl   := strtoint (labelededit1.Text);
i      := 0 ;
  repeat
  i := i + 1;

  for j := 0 to zeile do

  until i := zeile ;
end;

So Leute Ich muss für die Schule in ein Memofeld ein/e Zahl/Buchstaben in beliebiger Anzahl von Spalten und Zeilen ausgeben. Dass soll ich jetzt mithilfe einer geschachtelten Schleife durchführen!! Wie bekomme ich das hin? Ich habe euch mal meinen Programmansatz gegeben.

[mkinzler]

Was soll den die Repeat-Schleife bewirken?
Warum nicht 2 Zählschleifen?
Achtung Grenzen!

[Muddy]

Naja! Ich muss die Zahl zum Beispiel in fünf Spalten und 4 Zeilen angeben, dass sieht dann so aus

xxxxx
xxxxx
xxxxx
xxxxx

So! UNd ich muss das ja auch so ausgeben, dass die Zahl oder Buchstabe in Spalte und Zeile angegeben wird und zwar so oft, wie ich in den Feldern angebe d.h. beliebige Anzahl Spalten und Zeilen

[mkinzler]

Ich würde 2 geschachelte Zählschleifen nehmen und zur Anzeige ein StringGrid

[Muddy]

WIr sollen dazu leider ein Memofeld verwenden

[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

[Muddy]

SO Ich schreibe mein Programm ganz von vorne. Allerdings mit Win32, damit ihr bescheidwisst, wenn ich jtzt nu beginne.

Wie würdet ihr das denn jetzt machen? Also die Version die MAxxx mi gab funzt nicht.

[mkinzler]

Les doch die Beiträge :zwinker:

[inherited]

"Funzt nicht" ist keine Fehlerbeschreibung und etwas Eigeninitiative wäre auch angebracht, zumal das ja offensichtlich eine art Hausaufgabe ist :roll:

[Muddy]

tube!! Was soll ich denn hier machen? ICh versteh nicht, was die einzelnen DInge bedeuten sollen. Kannste mal noch erklären, was Bei der PRozedur so geschieht?

[Muddy]

Vergiss was ich uletzt geschrieben habe!! Wozu gibt s die Hilfe

[IceTube]

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!

[Muddy]

Ist das bei s ein Hochkomma??

[IceTube]

Ja!

[Muddy]

Dankeschön. Mien Programm läuft. Ich danke euch ^^