Wörter zählen

[mikhal]

Deshalb habe ich meine Routine auf deinen Ansatz erweitert. Sie sollte einwandfrei funktionieren, auch wenn ich sie immer noch nicht getestet habe.

Grüße
Mikhal

[p80286]

Zitat:

Zitat von Lisa.99 (Beitrag 1363267)

verstanden habe ich, was mein Fehler war, nur leider funktioniert es immer noch nicht, entweder er gibt mir 0 oder 1 aus.

Dann wäre es sinnvoll Deinen Sourcecode (mit Berichtigungen) zu posten. Und wenn Du das Helmsymbol dabei nutzt, wird es auch leserlicher.

Gruß
K-H

[himitsu]

Zitat:

Zitat von Lisa.99 (Beitrag 1363263)

Bei mir zählt er leider immer nur zwei Wörter, egal wie viele es sind und finde dabei den Fehler auch nicht

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;

Sorry, ich klinke mich ab jetzt aus jeglichen Themen aus.

Zitat:

Das habe ich und für wenige Wörter funktioniert das!

Erst behauptest du das funktioniert.
Ich hatte bereits in Antwort #7 gezeigt, dass ich es nicht wirklich glauben kann, hab dort bereits die Gründe/Fehler genannt
und jetzt heißt es, dass es doch nicht funktioniert?

Es wäre gut, wenn du dir Antworten vielleicht auch durchliest.

[p80286]

Der letzte Vorschlag von mikhal ist die einfachste Lösung und sollte ein erstes Ergebnis bringen.
Un falls da etwas unklar ist: fragen.
(aber bitte konkret)

Gruß
K-H

[Lisa.99]

text := Trim('Dies ist ein kurzer Text')
Was hat das in den Klammern zu stehende zu bedeuten?
Verstanden habe ich, dass das Trim die Leerzeichen am Satzanfang und -ende verfallen lässt.

[EWeiss]

Zitat:

Zitat von Lisa.99 (Beitrag 1363349)

text := Trim('Dies ist ein kurzer Text')
Was hat das in den Klammern zu stehende zu bedeuten?
Verstanden habe ich, dass das Trim die Leerzeichen am Satzanfang und -ende verfallen lässt.

Gar nichts denn hier Trim zu verwenden bei diesen Satz ist Blödsinn.
Es wäre etwas anderes wenn er so geschrieben wäre.

Delphi-Quellcode:

text := Trim('   Dies ist ein kurzer Text');

Das Ergebnis wäre dann wie du schon sagst der gleiche Text ohne die beiden Leerzeichen am Anfang.


gruss

[Luckie]

Aber da man nicht weiß, was für ein Text übergeben wird, benutzt man zur Sicherheit trim.

[EWeiss]

Zitat:

Zitat von Luckie (Beitrag 1363351)

Aber da man nicht weiß, was für ein Text übergeben wird, benutzt man zur Sicherheit trim.

Aber nicht bei dieser Konstellation.
Wenn man den Text selber Schreibt wie hier geschehen.
Da ist doch wohl erkenntlich das hier keine Leerzeichen stehen.

Somit ist die Frage von ihr in dem Zusammenhang durchaus berechtigt da es keinen sinn macht hier Trim zu verwenden.

Zitat:

text := Trim('Dies ist ein kurzer Text') // Trailing-Spaces entfernen;

Welcher Trailing-Spaces ?

gruss

[himitsu]

Dann kann man aber auch selber Zählen und direkt die Wortanzahl hinschreiben.

Denkt euch den "Text" als Platzhalter für eine Variable.


PS: Bei einem Leerstring wird behauptet da sei ein Wort drin.
Und sind zwischen zwei Wörtern mal zwei/mehrere Leerzeichen, dann werden mehr Wörter gezählt, als da sind.

[Luckie]

Diese Sonderfälle sollten wir erst mal ausklammern. Erst mal muss sie den einfachsten Fall hinbekommen. Aber da sehe ich im Moment kein Ende hier. :cry: