Witam!
Robię program który jest coś w stylu cenniku opartego na ValueList takich. Takie oprogramowanie można najczęściej <ort>znaleŹć</ort> w Sklepach komputerowych ale chodzi mi że oni takiego oprogramowania używają ale to jest nie istotne przejdźmy teraz do tematu... mam problemy z usunięciem zaznaczonego wierszu, bo zaznaczam np. wiersz 5 to jak użyłem komendy: ValueListEditor1.Strings.Delete(1); to usuną mi pierwszy wiersz, a jak użyłem tej komendy:
var
dane :Integer;
begin
dane := ValueListEditor1.Col;
ValueListEditor1.Strings.Delete(ValueListEditor1.Strings.Count - dane);
to usuną ostatni wiersz więc z tym mam problem ale to nie wszystko. Wstawiłem na forme komponenty: Edit1 i Button1. Chce teraz zrobić wyszukiwarkę, która szuka nazwy ale po 1 kolumnie.
Mam taki kod:
var
IloscLiterek, I : Integer;
begin
IloscLiterek := Length(Edit1.Text);
if ValueListEditor1.Strings.Count > 0 then
begin
for I := 0 to ValueListEditor1.Strings.Count-1 do
begin
if copy(ValueListEditor1.Strings[i], 0, IloscLiterek) = Edit1.Text then
//ValueListEditor1.Strings := i; - właśnie nie wiem co tu wpisać i myślę, że mi by już wyszukał ale raczej nie jestem pewien...
end;
end;
end;
Program wygląda mnie więcej tak (chodzi o komponent ValueListEditor):
(kolumny)
Produkt | Cena
wartosc1 | wartośc2
wartosc1 | wartośc2
wartosc1 | wartośc2
A co do wyszukiwania to on ma wyszukać w kolumnie 'Produkt' czyli ma przeszukać dany wyraz podany w Edit1.
Bardzo proszę o pomoc bo to jest ważny program... z góry dziękuje...
<font color="blue">//zmień temat na bardziej opisowy i sensowny albo wątek poleci do kosza - M</span>