Sry wegen dem Ergebnis xD ehem joa du wie gesagt steh immoment ziemlich auf dem Schlauch
ehm mit dieser methode
Delphi-Quellcode:
begin
zeichen:= edit1.text;
for i:= 0 to 0 do
begin
ergebniss:=' ';
memo1.Lines.Add(ergebniss);
for j:= 7 downto 3 do
begin
ergebniss:=ergebniss + zeichen ;
memo1.Lines.Add(ergebniss);
end;
end;
end;
bekomm ich das hier raus
x
xx
xxx
xxxx
xxxxx