[PHP]Funkcja pobierająca źródło zewnętrznej strony
Azureus - problem z pobieraniem (błąd NAT)
Prąd pobierany na wylaczonym silniku
Problem z pobieraniem z p2p.
Nie chodzi na benzynie
Analiza spalin
Bezpieczniki
Chce sprowadziÄ auto.Kto wie coĹ o nowych zasadach
Pracownik od zaraz!
Filtr stoĹźkowy
chomiki
Muszę do jutra stworzyć 'statystykę wyrazów'-taka opcja jak w wordzie. Jak odczytać ilość wyrazów w richEdit. Proszę o pomoc.W assemblerze
Nie, delphi
Co rozumiesz przez słowo Fragmenty oddzielone spacjami Czyli samo a, i, z, w też
Bo normalnie wystarczy
procedure Licz;
var liczba_slow: integer;
s, s1: string;
begin
Liczba_slow := 0;
s := RichEdit1.text;
s := StringReplace(s, #13#10, ' ', [rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s, #13, ' ', [rfReplaceAll, rfIgnoreCase]);
Trim(s);
while s <> '' do
begin
if pos(' ', s) > 0 then
begin
s1 := Trim(Copy(s, 1, pos(' ', s)));
Delete(s, 1, pos(' ', s));
end
else
begin
s1 := Trim(s);
s := '';
end;
if Length(s1) > 0 then Inc(Liczba_slow);
end;
ShowMessage(IntToStr(Liczba_slow));
end;
dzięki, już sobie poradziłem. Off topic. Dopisz to do FAQ
wcisnij dzikuje //Kanalia
