Einzelnen Beitrag anzeigen

CalganX

Registriert seit: 21. Jul 2002
Ort: Bonn
5.403 Beiträge
 
Turbo Delphi für Win32
 
#6

Re: Nur 1. zeichen aus Textfeld verarbeiten

  Alt 14. Jun 2004, 22:56
Hi,
vielleicht 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
    for j := 1 to i do begin
      eingstr:=eingstr+eing;
      memo1.lines.add(eingstr);
    end;
  end;
end;
(Source ungetestet)

Chris
  Mit Zitat antworten Zitat