Ĺadny brzuch
Jak w delphi odczytać do memo którąś linijke(np.54) tekstu z pliku ????
i zapisać do danej linijki tekst?
Użytkownik turboasm edytował ten post 04 lipiec 2005, 16:29
Jak w delphi odczytać do memo którąś linijke(np.54) tekstu z pliku ????
i zapisać do danej linijki tekst?
a w innych plikach ??
To już nie lepiej StringList.LoadFromFile(); ? ;)
W innych plikach:
Skok do wybranej pozycji np w pliku typowanym:
type TmojRecord = packed record imie: string[255]; end; Tmoj plik = file of TmojRecord; {...} var plik: Tmojplik rekord: Tmojrekord; begin AssignFile(plik, 'C:\plik.dat'); Reset(plik); Seek(plik, 43);//skoczenie do wartosci (?) numer 43. Ponieważ nasz rekord ma tylko jedno pole mozemy traktowac to jako linijke :] CloseFile(F); end;
W plikach strumieniowych podobnie:
var plik: TFilestream; begin plik := TFilestream.Create('C:\plik.dat', fmOpenReadWrite); plik.Seek(128, soFromBeginning); plik.free; end;
Tutaj skaczemy do 128 baja w pliku. Nie da się określić tu linijki. Trzeba to zrobić na podtsawie sumy dlugości linijek - funkcja Length();
W pliku amorficznym także (chyba - nie jestem pewien) nie możemy skakać. Trzeba tu z góry odczytywać porcje danych - funkcja BlockRead;
Tylko nie bić jeśli źle powiedziałem!
//edit:
@Cyrkiel - no fakt :frusty:
Użytkownik programista1101 edytował ten post 04 lipiec 2005, 17:43
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
i zapisać do danej linijki tekst?
Użytkownik turboasm edytował ten post 04 lipiec 2005, 16:29
Jak w delphi odczytać do memo którąś linijke(np.54) tekstu z pliku ????
i zapisać do danej linijki tekst?
a w innych plikach ??
To już nie lepiej StringList.LoadFromFile(); ? ;)
W innych plikach:
Skok do wybranej pozycji np w pliku typowanym:
type TmojRecord = packed record imie: string[255]; end; Tmoj plik = file of TmojRecord; {...} var plik: Tmojplik rekord: Tmojrekord; begin AssignFile(plik, 'C:\plik.dat'); Reset(plik); Seek(plik, 43);//skoczenie do wartosci (?) numer 43. Ponieważ nasz rekord ma tylko jedno pole mozemy traktowac to jako linijke :] CloseFile(F); end;
W plikach strumieniowych podobnie:
var plik: TFilestream; begin plik := TFilestream.Create('C:\plik.dat', fmOpenReadWrite); plik.Seek(128, soFromBeginning); plik.free; end;
Tutaj skaczemy do 128 baja w pliku. Nie da się określić tu linijki. Trzeba to zrobić na podtsawie sumy dlugości linijek - funkcja Length();
W pliku amorficznym także (chyba - nie jestem pewien) nie możemy skakać. Trzeba tu z góry odczytywać porcje danych - funkcja BlockRead;
Tylko nie bić jeśli źle powiedziałem!
//edit:
@Cyrkiel - no fakt :frusty:
Użytkownik programista1101 edytował ten post 04 lipiec 2005, 17:43