"Verwertung" eines Satzes

[diavy]

Hallo zusammen.

Hier meine Aufgabenstellung:
Der Benutzer gibt einen Satz in eine Edit-Box ein. Jener Satz soll in seine einzelnen Worte eingeteilt werden. Man geht davon aus, dass 2 Worte sich durch eins der folgenden Zeichen trennen (ASCII-Code in Klammern): Leerstelle(32),Apostroph(39),Bindestrich(45),Komma (44). Das Ende eines Satzes wird durch einen Punkt gekennzeichnet.
Das Programm soll den Satz analysieren:
- Anzahl an Worten
- längstes Wort
- durchnittliche Länge der Wörter
- Frequenz eines vom Benutzer angegebenen Buchstaben


Ich habe bereits ein Problem bei der "Basis" des Programms.

Mein Code:

Delphi-Quellcode:

implementation

{$R *.dfm}

procedure TForm1.edt_phraseKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
i,k:integer; words:array of string;
begin
if (Key=VK_Return) then
        begin
        k:=0;
        for i:=1 to Length(edt_phrase.Text) do
                if ord(edt_phrase.text[i])=32 then inc(k)
                else words[k]:=words[k]+edt_phrase.text[i];
        SetLength(words,k);
        edt_wordscounter.Text:=IntToStr(k)+'words'; 
        end;
end;

end.

Die Fehlermeldung ist im Anhang und ich werde nicht schlau draus.

Wär nett wenn mir wer helfen könnte.
Grüße

[mkinzler]

Der Fehler deutet auf einen Nil-Pointer hin ( z.B. nicht instantiiertes Objekt)

In welcher Zeile tritt er auf?
Ich würde den String anhand der Trenner Teilen ( z.B. per StringListe)

[Bummi]

Du greifst mit words[k] auf ein nicht initialisiertes Array zu ....
ob das hier zudem als lokale Variable die richtige Stelle ist wage ich zu bezweifeln.

[diavy]

mkinzler:

Nicht instantiiert bedeutet?

Ich erfahre nicht in welcher Zeile er auftritt.

Okay ich google das mal.


Bummi:

Wie würde ich das denn vermeiden?

[mkinzler]

Ich würde anstatt des Arrays eine Stringliste nehmen. Oder den Array mit SetLength() dimesionieren.

[Bummi]

Nachdem Du

Delphi-Quellcode:

SetLength(words,1);
//gesetzt ausgeführt hast kannst Du
words[0];
//verwenden
words[1]
// ist wieder ein illegaler Zugriff

Wenn Du words lokal innerhalb von edt_phraseKeyUp verwendest
wird es bei jedem Keyup neu "erstellt".

[DeddyH]

Zitat:

Zitat von Bummi (Beitrag 1183196)

Wenn Du words lokal innerhalb von edt_phraseKeyUp verwendest
wird es bei jedem Keyup neu "erstellt".

Nur bei jedem RETURN ;). Aber das SetLength muss auf jeden Fall vor dem ersten Zugriff erfolgen, wenn man schon dynamische Arrays verwendet.

[diavy]

Dass es bei jedem Return neu erstellt wird, ist doch gut?

Aber wie soll ich denn SetLength schon vorher benutzen, wenn ich dann noch keine Ahnung habe, wie lang es denn sein soll?

[mkinzler]

Aber wenn es zu klien ist knallt es nunmal. Also entweder eine Stringliste verwenden oder halt vor jedem Anfügen Platz schaffen

[DeddyH]

Wenn man die Sonderfälle wie Trennzeichen am Satzanfang bzw. -ende sowie 2 Trennzeichen nacheinander einmal außer Acht lässt, dann könnte man die benötigte Größe ermitteln, indem man den Satz zunächst zeichenweise durchgeht und schaut, ob das aktuelle Zeichen ein Trennzeichen ist. Wenn ja, wird eine Variable (mit 0 initialisiert, wie Du bereits getan hast) hochgezählt. Die (voraussichtliche, siehe Sonderfälle) Wortanzahl entspricht anschließend dann dem Wert der Variablen + 1.