hejka
zrobilem na podstawie pewnej ksiazki programik ,,filmoteka'' jest to baza danych przechowywująca nazwy filmow
na formie mam dwa przyciski (jeden dodaje a drugi usuwa rekordy) pod tym mam notebooka z trzema strona i na kazdej z nich jest podobny list view
w przycisku usuwającym dany rekord jest taki kod:
procedure TMainForm.Remove1;
var
F : TAddressFile;
Rec : TAddress;
i : Integer;
begin
AssignFile(F, 'filmy.silver');
try
Rewrite(F); // utworzenie pliku i skasowanie poprzedniej zawartości
for I := 0 to lvFilm.Items.Count -1 do
begin
{ jeżeli wykonywana iteracja nie ma numeru takiego samego jak zaznaczony element }
if I <> lvFilm.Selected.Index then
begin
{ dodaj zawartość z kolnego elementu do pliku }
Rec.Title := lvFilm.Items[i].Caption;
Rec.Nosnik := lvFilm.Items[i].SubItems[0];
Rec.Ilosc := StrToInt(lvFilm.Items[i].SubItems[1]);
Write(F, Rec);
end;
end;
finally
CloseFile(F);
ReadFile1; // odśwież zawartość komponentu
end;
end;
wszystko dziala ale przestaje dzialac gdy do buttona dodaje jeszcze takie dwie procedury ale ze zmienionymi nazwami listviewow.
procedure TMainForm.btnRemoveClick(Sender: TObject);
begin
Remove1;
Remove2;
Remove3;
end;
uruchamiam program i dodaje po pare rekordow do kazdego listviewa potem zaznaczam rekord do usuniecia naciskam przycisk i wyskakują takie dwa komunikaty : dlaczego pomozcie!!