Mam listboxa, Edita, i buttona.
Jak wpisze w Edita tekst to program mi go szyfruje, dodaje do listboxa i zapisuje tekst w pliku txt. Jak mam kilka elementów w ListBoxie to jak klikne na Butona który ma za zadanie usuwać elementy to usuwa wybrany element z listy ale nie usuwa go z pliku txt.
Jaka jest procka że jak wybiore sobie dany element z ListBoxa to żeby został on usunięty także z pliku TXT ??
Pozdrawiam i licze na szybką odpowiedź!
Czlowieku wyluzuj :-) :-) :-) :-) :-)
Pozdrawiam {hello} --LSD - Discover The New Way Of Thinking
Moim zdanie do takiego zastosowania plik textowy sie raczej nie nadaje moglbys zrobic cos takiego:
type
TMojRekord = packed record ;
text := string[100] ;
end ;
TMojPlik = file of TMojRekord ;
z procedurka bede mial na razie maly problem, ale licze na to ze ktos mnie poprawi jak zrobie bledy:
procedure Skasuj ;
var
MojPlik: TMojPlik ;
MojRekord: TMojRekord ;
Rozmiar: Integer ;
Pozycja: Integer ;
begin
AssingFile(MojPlik,'JakasNazwa') ;
Rozmiar := FileSize(MojPlik) ;
Pozycja := ListBox1.Items.ItemIndex * czy jakos tak, nie chce mi sie zagadac do delphi
if Pozycja < Rozmiar do
begin
*teraz jakis kod, ktoryby przesuwal zaznaczona linijke na koniec pliku, a pozostale zamienial miejscami o -1, mozna tez zadeklarowac i uzyc tablicy Rekordow
Seek(MojPlik, Rozmiar-1) ;
Truncate(Plik) ;
end ;
end ;
Jesli zamiescilem jakies bledy, to najmocniej przepraszam {browar}
Pozdrawiam {hello}
--LSD - Discover The New Way Of Thinking
Po prostu tekst wpisuj tylko do listbox-a, a następnie zapisuj go do pliku z listboxa !!!
Poźniej po każdej zmianie w listboxie, będzie też zmianna w pliku txt !!!!!!!!!!!!--M@ri
[email protected]