"Verwertung" eines Satzes

[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 von Bummi:

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.

[diavy]

€: Hier ist nun mein Code:

Delphi-Quellcode:

implementation

{$R *.dfm}
procedure TForm1.edt_phraseKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
i,k,max:integer; words:array of string; longest:string; summ:real;
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);
        SetLength(words,k+1);
        {-----------------------------------------------}
        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];
        edt_wordscounter.Text:=IntToStr(k+1)+' words';
        {-----------------------------------------------}
        max:=Length(words[0]);
        longest:=words[0];
        for i:=1 to k do
                if Length(words[i]) > max then
                        begin
                        max:=Length(words[i]);
                        longest:=words[i];
                        end;
        edt_longestword.Text:=longest + '(' + IntToStr(max) + ' letters)';
        {-----------------------------------------------}
        summ:=0;
        for i:=0 to k do
                summ:=summ+Length(words[i]);
        summ:=summ/(k+1);
        edt_averagelength.Text:=FloatToStr(summ);
        end;
end;

procedure TForm1.edt_letterChange(Sender: TObject);
var summ,i:integer;
begin
if edt_letter.Text <> '' then
        begin
        summ:=0;
        for i:=1 to Length(edt_phrase.Text) do
                if edt_phrase.Text[i]=edt_letter.text[1] then inc(summ);
        lbl_frequence.Caption:='The letter ' + edt_letter.text[1] + ' got used ' + IntToStr(summ) + ' times.';
        end;
end;

end.

Wie krieg ich es nun hin, dass ich zB einen Button hinzufügen könnte, und bei dessen OnClick-Event die hier gepostete Key-Up-Prozedur gestartet wird?
Sprich dass man mit "Enter"-Drücken und einem Button das ganze starten kann.

[Aphton]

Du verschiebst den Inhalt vom KeyPress ins OnClick Ereignis des Buttons.
Im KeyPress Event prüfst du, ob vk_return gedrückt wurde und führst anschließend das Event per
meinButton.onClick(Sender)
aus..

[diavy]

Danke!