|
Registriert seit: 13. Feb 2017
21 Beiträge
|
AW: Wörter zählen
27. Feb 2017, 08:20
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var i, woerter : integer;
text : string;
begin
woerter:= 1;
for i := 0 to length (text) do
begin
inc(woerter);
continue;
end;
Edit3.Text:= inttostr(woerter);
end;
Das habe ich und für wenige Wörter funktioniert das!
Geändert von MrSpock (27. Feb 2017 um 09:34 Uhr)
Grund: Delphi - Tags einfügen. Bitte demnächst selbst machen.
|