Einzelnen Beitrag anzeigen

ridom

Registriert seit: 31. Aug 2010
8 Beiträge
 
#4

AW: Delphi Schulaufgaben

  Alt 31. Aug 2010, 17:57
ehm iwie weiss ich grad nicht was du meinst so sieht mein Rechteck aus


Code:
procedure TForm2.Button2Click(Sender: TObject);
var i,j: integer;
    ergebniss, zeichen: string[100];
begin
  zeichen:= edit1.text;
  for i:= 0 to 6 do
    begin
      ergebniss:=' ';
        for j:= 0 to 12  do
          begin
            ergebniss:= ergebniss + zeichen;
          end;
      memo1.Lines.Add(ergebniss);
    end;
end;
  Mit Zitat antworten Zitat