Nur 1. zeichen aus Textfeld verarbeiten

[ibp]

@Chakotay1308 bei den ineinander geschachtelten schleifen sollte man dann eingstr:='' setzen sonst wird das nichts...

oder eben so..

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k: integer;
   eing: char;
   eingstr:string;
begin
  memo1.clear;
  eingstr:='';
  eing := edit1.text[1];
  for i := 1 to 4 do begin
    eingstr:=eingstr+eing;
    memo1.lines.add(eingstr);
  end;
end;