ďťż

Ładny brzuch

Witam.
Mam mały programik, który pozwala na dopisywanie i dczytywanie rekordów.
Ma on służyć jako takie archiwum. Ale nie wiem jednego. Jak zsumować wszystkie rekordy dla danego nazwiska. np.
Kowalski 15
Xkowalski 10
Kwalski 30
i naprzyklad e edicie mi pokazuje
Kowalski: 45
XKowalski: 10



no jak masz zmienną zawierającą takie tekst: "Kowalski 15" to szukasz gdzie jest spacja, usuwasz to co jest przed nią, a potem wsadzasz reszte do funkcji StrToInt(). I gotowe!
String x="Kowalski 15"; int s=x.AnsiPos(" "); x.Delete(1, 9); int r=StrToInt(x);
To jest kod w BCB, nie wiem jak to w Delphi powinno wyglądać,
Użytkownik loguś edytował ten post 11 marzec 2007, 11:04
W delphi: Pos, Copy, Delete, StrToInt
A postu z pytaniem w ogole nie zrozumialem...

jemu chyba chodzi o to, ze ma plik elementowy z rekordami, w ktorym ma nazwisko i jakiegos integera, i chce aby dla kazdego recordu z takim samym nazwiskiem pokazac sume tego integera.

mozna to zrobic np. tak na richedit
for .... begin if richedit1.Lines.IndexOf(nazwisko) <> -1 then richedit1.Lines.Strings[richedit1.Lines.IndexOf(nazwisko) + 1]:=inttostr(strtoint(richedit1.Lines.Strings[richedit1.Lines.IndexOf(nazwisko) + 1]) + strtoint(liczba)) else begin richedit1.Lines.Add(nazwisko); richedit1.Lines.Add(liczba); end; end;
oczywiscie pozmieniaj kod zeby pasowal do tego jak odczytujesz plik

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
  •