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?