PILNE! Na temat txt....

0

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ź!

0

Czlowieku wyluzuj :-) :-) :-) :-) :-)

Pozdrawiam {hello} --LSD - Discover The New Way Of Thinking

0

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 &lt 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

0

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]

1 użytkowników online, w tym zalogowanych: 0, gości: 1