Worte zählen im Memo

[hansdieter11]

Delphi-Quellcode:

var
  Form1: TForm1;
  ergebnis : Integer;

implementation

{$R *.DFM}

procedure TForm1.WorteInZeile(Sender: TObject);
var n : integer;
    WortEnde : boolean;
    nWorte : integer;

begin
  nWorte := 0;
  WortEnde := true;

  for n := 0 to length(memo1.lines(n)) do
    begin
      if (WortEnde = true) and (StrZeile[n] <> '')
      then
        begin
          WortEnde := false;
          nWorte := nWorte+1;
        end
      else
        if not WortEnde and (StrZeile[n] = '')
        then
          begin
            WortEnde := true;
          end;
      end;

    ergebnis := nWorte;
end;

procedure TForm1.Button1Click(Sender: TObject);
var n : integer;
    nWorte : integer;

begin
  for n := 0 to memo1.lines.count do
      begin
        nWorte := nWorte+WorteInZeile(memo1.lines[n]);
      end;

  button1.caption := inttostr(ergebnis);
end;

end.

Hallo zusammen,
ich habe ein Problem. Und zwar, wenn ich in einem Memo die Worte zählen möchte, dann meldet Delphi noch Fehler. Wäre nett, wenn mir jemand helfen könnte, möglichst schnell

Vielen Dank im Vorraus

[Meflin]

WorteInZeile soll die Wörter in einer Zeile zählen. Du übergibst aber nirgends den Parameter, welche Zeile denn gezählt werden soll.

Außerdem solltest du das als function und nicht als procedure implementieren

Und drittens ist das:

Zitat:

dann meldet Delphi noch Fehler

keine Fehlerbeschreibung

[hansdieter11]

Naiv gefragt, aber unser Leherer hat das so projeziert: Was genau muss ich tun, um dem WorteInZeile ein Parameter zuzuordnen?

Eine for-Schleife? Und function hatte er auch angeschrieben, aber nun will Delphi oben bei type hinter dem Doppelpunkt bei der

function noch irgendwas:

Zitat:

ein Bezeichner erwartet, aber PUBLIC gefunden

Was ist zu tun ?

Vielen Dank im Vorraus

[Teekeks]

Den Teil in dem der Fehler ist hast du uns noch garnicht gezeigt ^^

[BullsEye]

Evtl nen ; (Simikolon) vergessen?

Wäre aber Hilfreich, wenn du uns den Code mit dem Fehler zeigst

[bigben37]

Zitat von hansdieter11:

Und function hatte er auch angeschrieben, aber nun will Delphi oben bei type hinter dem Doppelpunkt bei der function noch irgendwas

Ja, eine Funktion gibt etwas zurück und hinter dem Doppelpunkt muss noch der Typ des Rückgabewerts definiert werden.
Allgemeiner Aufbau einer Funktion:

Delphi-Quellcode:

function [Name] ([Param1]: [Typ Param1]; [Param2]: [Typ Param2]...): [Typ Rückgabewert];
begin
  //Code
end;

Edit2: Mein 100. Beitrag

[Meflin]

Im übrigen hast du noch ganz andere Fehler drin: Deine Schleifen laufen alle 1 zu weit (du fängst bei Null zu zählen an, das letzte Element ist als n - 1 und nich n) und außerdem verwendest du die Variable n im selben Kontext für zwei verschiedene Sachen. Das kann nicht gutgehen.

[hansdieter11]

Delphi-Quellcode:

var
  Form1: TForm1;
  ergebnis : Integer;

implementation

{$R *.DFM}

function TForm1.WorteInZeile(Sender: TObject): integer;
var n : integer;
    WortEnde : boolean;
    nWorte : integer;

begin
  nWorte := 0;
  WortEnde := true;

  for n := 0 to length(memo1.lines(n)) do  //hier meckert Delphi: Operator oder Semikolon fehlt
    begin
      if WortEnde = true and (StrZeile[n] <> '')  //hier meckert Delphi: Undifinierter Bezeichner: 'StrZeile'
      then  //hier meckert Delphi: Operator ist auf diesem Operandentyp nicht anwendbar
        begin
          WortEnde := false;
          nWorte := nWorte+1;
        end
      else
        if not WortEnde and (StrZeile[n] = '')
        then  //hier meckert Delphi: Operator ist auf diesem Operandentyp nicht anwendbar
          begin
            WortEnde := true;
          end;
      end;

    ergebnis := nWorte;
end;

procedure TForm1.Button1Click(Sender: TObject);
var n : integer;
    nWorte : integer;

begin
  for n := 0 to memo1.lines.count do
      begin
        nWorte := nWorte+WorteInZeile(memo1.lines[n]);  //hier meckert Delphi: Inkompatible Typen: 'TObject' und 'String'
      end;

  button1.caption := inttostr(ergebnis);
end;

end.

Ich komme überhaupt nicht weiter. Wäre froh über direkte Verbesserung der Fehler, dann werde ich es sicher auch besser verstehen

Vielen Dank im Vorraus

[Meflin]

Delphi-Quellcode:

var
  Form1: TForm1;
  ergebnis : Integer;

implementation

{$R *.DFM}

function TForm1.WorteInZeile(Sender: TObject): integer;
var n : integer;
    WortEnde : boolean;
    nWorte : integer;

begin
  nWorte := 0;
  WortEnde := true;

  for n := 0 to length(memo1.lines(n)) do  //hier meckert Delphi: Operator oder Semikolon fehlt
                                           // es muss auch lines[n] heißen, außerdem meinst du sicherlich NICHT das n das auch gleichzeitig Schleifenvariable ist
    begin
      if WortEnde = true and (StrZeile[n] <> '')  //hier meckert Delphi: Undifinierter Bezeichner: 'StrZeile'
                                                  //Du hast StrZeile ja auch nirgends definiert!
      then  //hier meckert Delphi: Operator ist auf diesem Operandentyp nicht anwendbar
        begin
          WortEnde := false;
          nWorte := nWorte+1;
        end
      else
        if not WortEnde and (StrZeile[n] = '')
        then  //hier meckert Delphi: Operator ist auf diesem Operandentyp nicht anwendbar
              // StrZeile ist unbekannt und kann somit auch nicht verglichen werden
          begin
            WortEnde := true;
          end;
      end;

    ergebnis := nWorte;
end;

procedure TForm1.Button1Click(Sender: TObject);
var n : integer;
    nWorte : integer;

begin
  for n := 0 to memo1.lines.count do
      begin
        nWorte := nWorte+WorteInZeile(memo1.lines[n]);  //hier meckert Delphi: Inkompatible Typen: 'TObject' und 'String'
                                                        //WorteInZeile erwartet als Parameter ein Objekt (Sender), du übergibst ihm einen string. Funktioniert halt nicht
      end;

  button1.caption := inttostr(ergebnis);
end;

end.

[mkinzler]

function TForm1.WorteInZeile(str: string): integer;
for n := 1 to length( str) do       if (WortEnde) and (StrZeile[n] <> '') //hier meckert Delphi: Undifinierter Bezeichner: 'StrZeile' Was ist StrZeile? / Wo hast du das deklariert?
if (not WortEnde) and (StrZeile[n] = '')