Wörter zählen

[Lisa.99]

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;

[mikhal]

Wie oben bereits beschrieben ist deine Variable Text leer.

Du setzt den Startwert auf 1, zählst in deiner Schleife sofort 1 hoch: Ergebnis ist 2.

Wie ebenfalls bereits oben beschrieben zählst du nicht die Wörter sondern die Anzahl Zeichen. Also solltest du in deiner Schleife nur dann hochzählen, wenn ein Leerzeichen ausgewertet wird. Continue ist hier überflüssig! Sorge mit Trim noch dafür das weder am Anfang noch am Ende deines Strings Leerzeichen stehen (Trailing-Spaces). Dann kannst du die naheliegende Variante verwenden, indem du jedes Zeichen Text[i] auf Space / Leerzeichen auswertest.

Diese "naive" Variante kannst du dann wie oben bereits angezeigt, verfeinern und um die Zeichen erweitern, die ebenfalls zur Trennung von Worten führen. Beispielroutine ist ungetestet.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i, woerter : integer;
    text : string;
begin
  woerter:= 0;
  text := Trim('Dies ist ein kurzer Text') // Trailing-Spaces entfernen;
  for i := 1 to length (text) do
  begin
    if text[i] = ' ' then
      inc(woerter);
//    continue; // überflüssig!
  end;
  // das letzte Wort mitnehmen
  inc(woerter);
  Edit3.Text:= inttostr(woerter);
end;

[Lisa.99]

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

[Sherlock]

Hast Du Dir eigentlich auch nur einen der Lösungsvorschläge angesehen?

Sherlock

[Lisa.99]

Ich habe mir alle angesehen, nur leider verstehe ich die wenigsten und möchte gerne die Lösungen nutzen, die ich auch nachvollziehen kann. Vieles haben wir nämlich in der Schule nicht gelernt.

[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

[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 von 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.

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


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

[p80286]

Zitat von Lisa.99:

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 von Lisa.99:

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.