TStrings

Witam,

Pytania dotyczą tylko klasy TStrings.

1. Jak ograniczyć wczytanie pliku za pomocą procedure LoadFromFile np. do rozmiaru pliku (2KB) i linijek (max 20 linijek)
2. Czy przy ładowaniu LoadFromFile da coś beginupdate i endupdate ??

PS. bardzo proszę o szybką odpowiedź <piwo>

Witam,

Pytania dotyczą tylko klasy TStrings.

1. Jak ograniczyć wczytanie pliku za pomocą procedure LoadFromFile np. do rozmiaru pliku (2KB) i linijek (max 20 linijek)

Z tego co wiem, to nie da rady. Musisz to zrobić własnoręcznie. Odczytując linijkę po linijce(i wprowadzić warunek) lub znak po znaku i wprowadzić warunek.

albo wczytać całość i dopiero obciąć do 20 linijek (2 KB), ale to jest głupie rozwiązanie...

var
t : text;
i,c : integer;
s : string;
ts : TStrings;
begin
  ts := TStringList.Create;
  AssignFile(t, 'plik.txt');
  Reset(t);
  repeat
    readln(t, s);
    ts.Add(s);
    c := c + Lenth(s);
    Inc(i);
  until (EOF(t) or i < 20 or c < 2048);
  CloseFile(t);
end;

Tu powinno byc ograniczenie do 20 linijek i 2KB :> Chyba ze cos pomieszalem co jest bardzo mozliwe :)

  until (EOF(t) or i < 20 or c < 2024);

Tu powinno byc ograniczenie do 20 linijek i 2KB :> Chyba ze cos pomieszalem co jest bardzo mozliwe :)

Jak 2 KB to chyba 2048? :)

//male potkniecie :> Ale juz naprawilem :P - Pedros

Jeśli chodzi o pytanie drugie, to BeginUpdate i EndUpdate kompletnie nic w tym przypadku nie daje, bo to działa tylko i wyłącznie na szybkość rysowania itemów.