Witam
w jaki sposób obliczyć ile razy powtarza się liczba 24 od 2 do 4 wiersza w richedit?
Tekst w richedit: {jest różny i długi ponad 200 wierszy - dlatego muszę zrobić program}
1;2;23;26;78;24;
3;4;6;1;5;78;46;
26;78;24;34;1;51;
26;78;24;34;1;51;
aha i w jaki sposób wynik wyświetlić w valuelisteditor w następującym formacie: liczba / ilość wystąpień
Za wszelką pomoc będę wdzięczny...
Na razie mam pomysł na coś takiego (piszę z pamięci, więc może nie działać:
var
i, licznik: integer;
s: string;
begin
For i := 0 to RichEdit1.Lines.Count -1 do
begin
while Pos('24', RichEdit1.Lines.Strings[i]) 0 do
begin
Inc(Licznik); //powiększa licznik wystąpienia liczby
S := RichEdit1.Lines.Strings[i];
Delete(S, Pos('24', RichEdit1.Lines.Strings[i]), 1);
RichEdit1.Lines.Strings[i] := S;
end;
end;
end;
{dalej dodawanie do valuelist editor, ale to nie będzie trudne...}
{Dopisek:} Sprawdziłem i działa! [hurra]
A tak dodawaj do ValueListEditor:
ValueListEditor1.Strings.Add('24=' + IntToStr(Licznik));
dzięki
jednak wyskakuje mi ostrzezenie ze zmienna licznik nie zostala zainicjowana.......
? [???]
mi też wyskakuje, ale to prawdopodobnie dlatego, że jeśli nic nie byłoby w RichEdit to zmienna nie zostałaby właśnie zainicjowana
PPP, przypuszczam że chodzi o MultiLotka. Sam robiłem podobny kiedyś program w Turbo Pascalu. :P
Więc jeżeli chcesz zliczać każdą liczbę z osobna to będzie to długo trwało. Mogę Ci poradzić, że jeżli będziesz zliczał wszystkie wystąpienia liczb rób to na tablicach.