Mam sobie rekord z 8 polami mam go zapisane w pliku. Jak usunąć wybrany rekord nie pozostawiająć dziury i w jaki sposób można go edytować.
0
0
To sie pojawialo wiele razy na forum (usuniecie). Jesli kolejnosc jest wazna, przepisz rekordy znajdujace sie za usuwanym przesuwajac je o jeden. Jesli nie jest wazna, nadpisz usuwany ostatnim rekordem i skroc plik o 1.
0
Tylko brać, lać i patrzeć, czy równo puchnie:
http://4programmers.net/Forum/viewtopic.php?id=29759#32113
0
Tylko brać, lać i patrzeć, czy równo puchnie:
http://4programmers.net/Forum/viewtopic.php?id=29759#32113
Nie bij waldiego :-) jest pewnie na przepustce..
Waldi: do kobiałki leć a nie delphi się bawisz maniaku :-)
Pozdrawiam
0
Nie bij waldiego :-) jest pewnie na przepustce..
---ot właśnie
Waldi: do kobiałki leć a nie delphi się bawisz maniaku :-)
---Jak sie wyśpie</quote>
Mam coś takiego i nie chce działać zatyrzymuje się na lkini write...
var rec:Tmuzyka;
begin
assignfile(muzykafile,audio);
reset(muzykafile);
seek(muzykafile,filesize(muzykafile));
//teraz pobieranie danych z komponentów
rec.Artysta:=form3.edit1.Text;
rec.tytul:=form3.edit2.Text;
rec.gatunek:=form3.combobox1.Items.GetText;
rec.rok:=form3.edit3.text;
rec.lplyt:=form3.edit4.Text;
rec.lutworow:=form3.edit5.Text;
rec.nrplyty:=form3.edit6.Text;
write(muzykafile,audio);
closefile(muzykafile);
deklaracje wyglądają tak
type
Tmuzyka=packed record//record muzyki
Artysta:string[30];
tytul:string[30];
rok:string[4];
nrplyty:string[3];
gatunek:string[20];
lutworow:string[3];
lplyt:string[3];
end;
Tmuzykafile=file of Tmuzyka;
var
muzykafile:TMuzykafile;
const
audio='muzyka.dat';
Byłbym wdzięczny za pomoc
0
write(muzykafile,audio);
write(muzykafile,rec);
0
write(muzykafile,audio);
write(muzykafile,rec);
a pomoże mi ktoś przy edycji rekordu i kasowaniu jego????
0
http://vogel.iglu.cz/index.php?id=kurs
TP~OP, więc nie narzekaj...