Thema
:
Delphi
Nur 1. zeichen aus Textfeld verarbeiten
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
14. Jun 2004, 22:56
Hi,
vielleicht so:
zusammenfalten
·
markieren
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
Zitat
CalganX
Öffentliches Profil ansehen
Besuche die Homepage von CalganX!
Mehr Beiträge von CalganX finden