Problemer med optælling af ord!

function CountWords(S: String): Integer;
var
  I: Integer;
  IsWord: Boolean;
begin
  // Setter først IsWord til False
  IsWord := False;

  // Sjekker om S er større enn '' (ingenting)
  if S > '' then
    // S er større enn '' - sett CountWords(Result) til 1
      // (vi har funnet ihvertfall 1 ord)
    Result := 1
  else
    // Sett CountWords til 0 (ingen ord funnet)
    Result := 0;

  // for-to-do loop
  for I := 1 to Length(S) do
  begin
    // Hvis vi har funnet et ord og tegnet S[I] ikke er ' '(mellomrom),
      // #13 eller #10, Inc CountWords med 1 (vi har funnet et ord)
    if IsWord and
      (S[I] <> ' ') and
      (S[I] <> #13) and
      (S[I] <> #10) then
      Inc(Result);

    // Setter IsWord = True HVIS tegnet S[I] er ' ', #13 eller #10
      // (vi har funnet et mellomrom eller et linjeskift)
    IsWord := (S[I] = ' ') or
              (S[I] = #13) or
              (S[I] = #10);
  end;

Bedre?
Bare spør hvis det er noe du lurer på

Mvh
DiZpel

[Redigeret d. 24/04-04 12:07:49 af DiZpel]

På min første form har jeg lavet følgende procedurer:

Kode 

Const
 SkilleTegn = [',',';','.','!','?','-'];

procedure SkipSkilletegn(var Streng : string);
begin
 while (Length(Streng)>0) and (Streng[1] in SkilleTegn+[' '])
 do Delete(Streng,1,1);
end;

procedure OpsamlOrd(var Streng, NaesteOrd: string);
begin
 NaesteOrd:='';
 while (Length(Streng)>0) and not (Streng[1] in Skilletegn+[' ']) do
 begin
  NaesteOrd:=NaesteOrd+Streng[1];
  Delete(Streng,1,1);
 end;
end;

procedure FindOrd(var Streng, NaesteOrd : string);
begin
 NaesteOrd:='';
 if Streng='' then Exit;
 SkipSkilletegn(Streng);
 if Streng='' then Exit;
 OpsamlOrd(Streng,NaesteOrd);
end;

procedure FindAntalOrd(RichEdit1 : TRichEdit);
var
  Tekst, Ord: string; Antal : integer;
begin
 Antal:=0;
 Tekst:=Form1.RichEdit1.Text;
 while Tekst<>'' do
 begin
  FindOrd(Tekst,Ord);
  if Ord<>'' then Inc(Antal);
 end;
end;

Min anden form består af følgende:

Kode 

unit statistik;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, RichEdit;

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses TekstEditor;

{$R *.DFM}

procedure TForm4.FormActivate(Sender: TObject);
var AntalOrd: integer;
begin
FindAntalOrd(Form1.RichEdit1,AntalOrd);
Label1.Caption:=IntToStr(AntalOrd);
end;


end.

Når jeg kører mit program kommer denne fejlmeddelelse op:

Undeclared identifier: "FindAntalOrd"

.. og jeg kan ikke forstå hvorfor, da jeg har tilføjet den første form (TekstEditor) til uses!

Nogle, der kan hjælpe!???

prøv i form4 at skrive:

unit statistik;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, RichEdit;

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses TekstEditor;

{$R *.DFM}

procedure TForm4.FormActivate(Sender: TObject);
var AntalOrd: integer;
begin
TekstEditor.FindAntalOrd(Form1.RichEdit1,AntalOrd);
Label1.Caption:=IntToStr(AntalOrd);
end;


end.

istedet...

Casper

Det ser ud til at du ikke har deklareret FindAntalOrd. Det gør du ved at skrive procedure FindAntalOrd(RichEdit1 : TRichEdit); over implementation i filen TekstEditor.

På min første form har jeg lavet følgende procedurer:

Kode 

Const
 SkilleTegn = [',',';','.','!','?','-'];

procedure SkipSkilletegn(var Streng : string);
begin
 while (Length(Streng)>0) and (Streng[1] in SkilleTegn+[' '])
 do Delete(Streng,1,1);
end;

procedure OpsamlOrd(var Streng, NaesteOrd: string);
begin
 NaesteOrd:='';
 while (Length(Streng)>0) and not (Streng[1] in Skilletegn+[' ']) do
 begin
  NaesteOrd:=NaesteOrd+Streng[1];
  Delete(Streng,1,1);
 end;
end;

procedure FindOrd(var Streng, NaesteOrd : string);
begin
 NaesteOrd:='';
 if Streng='' then Exit;
 SkipSkilletegn(Streng);
 if Streng='' then Exit;
 OpsamlOrd(Streng,NaesteOrd);
end;

procedure FindAntalOrd(RichEdit1 : TRichEdit);
var
  Tekst, Ord: string; Antal : integer;
begin
 Antal:=0;
 Tekst:=Form1.RichEdit1.Text;
 while Tekst<>'' do
 begin
  FindOrd(Tekst,Ord);
  if Ord<>'' then Inc(Antal);
 end;
end;

Min anden form består af følgende:

Kode 

unit statistik;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, RichEdit;

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses TekstEditor;

{$R *.DFM}

procedure TForm4.FormActivate(Sender: TObject);
var AntalOrd: integer;
begin
FindAntalOrd(Form1.RichEdit1,AntalOrd);
Label1.Caption:=IntToStr(AntalOrd);
end;


end.

Når jeg kører mit program kommer denne fejlmeddelelse op:

Undeclared identifier: "FindAntalOrd"

.. og jeg kan ikke forstå hvorfor, da jeg har tilføjet den første form (TekstEditor) til uses!

Nogle, der kan hjælpe!???

Hej

Husk at tilføje proceduren FindAntalOrd til din interface sektion i TekstEdit unit'en :

(*
Dette er et tænkt eksempel hvor kun dine funktioner er implementeret og ikke din form.
Alt hvad du egentlig skal gøre er at tilføje "procedure FindAntalOrd(RichEdit1 : TRichEdit);" i mellem "interface" og "implementation" delen.
*)
unit TekstEditor;

interface

uses
  RichEdit;

procedure FindAntalOrd(RichEdit1 : TRichEdit); // <- Skal ligge i interface delen for at andre unit's kan se den.

implementation

Const
 SkilleTegn = [',',';','.','!','?','-'];

procedure SkipSkilletegn(var Streng : string);
begin
 while (Length(Streng)>0) and (Streng[1] in SkilleTegn+[' '])
 do Delete(Streng,1,1);
end;

procedure OpsamlOrd(var Streng, NaesteOrd: string);
begin
 NaesteOrd:='';
 while (Length(Streng)>0) and not (Streng[1] in Skilletegn+[' ']) do
 begin
  NaesteOrd:=NaesteOrd+Streng[1];
  Delete(Streng,1,1);
 end;
end;

procedure FindOrd(var Streng, NaesteOrd : string);
begin
 NaesteOrd:='';
 if Streng='' then Exit;
 SkipSkilletegn(Streng);
 if Streng='' then Exit;
 OpsamlOrd(Streng,NaesteOrd);
end;

procedure FindAntalOrd(RichEdit1 : TRichEdit);
var
  Tekst, Ord: string; Antal : integer;
begin
 Antal:=0;
 Tekst:=Form1.RichEdit1.Text;
 while Tekst<>'' do
 begin
  FindOrd(Tekst,Ord);
  if Ord<>'' then Inc(Antal);
 end;
end;

end.

/Michael.

Nu er der selvfølgelig dukket et nyt problem op!

Form4:

procedure TForm4.FormActivate(Sender: TObject);
var AntalOrd: integer;
begin
TekstEditor.FindAntalOrd(Form1.RichEdit1,AntalOrd);
Label1.Caption:=IntToStr(AntalOrd);
end;

Her kommer den med en fejlmeddelelse i denne linje:

TekstEditor.FindAntalOrd(Form1.RichEdit1,AntalOrd);

Too many actual parameters!

Hvis jeg skal rette det, for at den ikke skriver en fejl, skal jeg rette linje til dette:

TekstEditor.FindAntalOrd(Form1.RichEdit1);

Så kører programmet fint, MEN hvis jeg skriver et par ord i RichEdit'en eller helt lader være med at skrive nogle ord, og hernæst åbner ordstatistikken skriver den, at der er flere millioner antal ord stående! Uanset hvor mange ord jeg skriver bliver den ved med at skrive: "11846784 antal ord" og samtidig kommer den med en Warning: "Variable "AntalOrd" might not have been initialized". Håber i forstår.. Hjælp!?!

du har jo i din procedure skrevet:
procedure FindAntalOrd(RichEdit1 : TRichEdit);
Altså kun 1 parameter, derfor kan du ikke give flere paramtere
________________
Hilsen CHadi
Mit lykketal er 2959

Hvordan angiver jeg så den sidste parameter, som i dette tilfælde er AntalOrd??

Jeg kunne også bare i stedet spørge, hvordan man laver en ordoptælling i en RichEdit...???

200 point er udlovet, til den, der kan hjælpe!

Denne funksjonen kan telle ordene i en string:

function CountWords(S: String): Integer;
var
  I: Integer;
  IsWord: Boolean;
begin
  IsWord := False;

  if S > '' then
    Result := 1
  else
    Result := 0;

  for I := 1 to Length(S) do
  begin
    if IsWord and
      (S[I] <> ' ') and
      (S[I] <> #13) and
      (S[I] <> #10) then
      Inc(Result);

    IsWord := (S[I] = ' ') or
              (S[I] = #13) or
              (S[I] = #10);
  end;
end;

Kall det som dette:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := 'Words: ' + IntToStr(CountWords(RichEdit1.Lines.Text));
end;

Mvh
DiZpel

[Redigeret d. 23/04-04 19:10:35 af DiZpel]

Mange tak! Det virker perfekt! Men kan du ikke forklarer linjerne??