Cześć wam!
Może ktoś z was mi podpowie jak wyszukać pojedynczy wyraz na końcu zdania.
Moje instrukcje jakie wykonuje:
- Ładuje tekst z pliku do Memo
- W pętli for przelatuje po kolei wszystkie linie z Memo
I teraz pytanie, jak znaleźć ostatni wyraz w danej linii i jej pozycję? :/
Znalazłem pewną funkcję, która liczy ilość wyrazów, jednakże tylko pokazuje jej ilość właśnie, a chciałbym sprawdzić, czy ostatni wyraz to pojedyncza litera np "w" itd. Proszę o pomoc/ wskazówki.
Będę wdzięczny, pozdrawiam.
function WordCount(CText: string): Longint;
var
Ix: Word;
Work_Count: Longint;
begin
Work_Count := 0;
Ix := 1;
while Ix <= Length(CText) do
begin
while (Ix <= Length(CText)) and (Seps(CText[Ix])) do
Inc(Ix);
if Ix <= Length(CText) then
begin
Inc(Work_Count);
while (Ix <= Length(CText)) and (not Seps(CText[Ix])) do
Inc(Ix);
end;
end;
Result := Work_Count;
end;