Jak szybko wczytać plik

Normalnie plik wczytujemy tak:

var
  TF : TextFile;
  S : String;
begin
  if not FileExists('C:\plik.txt') then
    ShowMessage('Sry, plik nie istnieje :/')
  else
  begin
    AssignFile(TF, 'C:\plik.txt');
    Reset(TF);
    while not eof(TF) do
    begin
      Readln(TF, S);
      ListBox1.Items.Add(S);
    end;
    CloseFile(TF);
  end;
end;

Jednak czasem dużo wygodniej (szybciej/krótszy kod) jest skorzystać z metody klas dziedziczących po TStrings

var
  data : TStringList;
begin
  if not FileExists('C:\plik.txt') then
    ShowMessage('Sry, plik nie istnieje :/')
  else
  begin
  data := TStringList.Create;
  data.LoadFromFile('c:\plik.txt');
  ListBox1.Items.Assign(data);     // sprawdź też działanie metody Append(data)
  data.free;
end;
end;

W ten sposób wczytaliśmy dane do zmiennej data. Możemy się do niej odwoływać jak do zwykłej tablicy ciągów znaków. Jednak musisz pamiętać, że pierwszy znak w obiekcie klasy string jest pod indeksem 1. Linie numerowane są od 0.

--- plik.txt ---
Aklimx
Witaj! Miłego dnia
--- plik.txt ---

ListBox1.Items.Add(data[0]);       // Aklimx
ListBox1.Items.Add(data[0][6]);   // x
ListBox1.Items.Add(data[1][6]);   // !

Zobacz też:

[[Delphi/Kompendium/Rozdział 7|Rozdział 7. Obsługa plików]] [[Delphi/Pliki]]