Считывание из файла в массив (delphi)

[CAMOBAP]

Как можно считать строки из файла в массив.С массивами не имел опыта роботы, но примерную структуру знаю.

[Stilet]

var s:TStringList;
...
s:=TStringList.Create
...
s.LoadFromfile('файлик');
И теперь мона обращаться к строкам в s как к элементам массива: s[номер строки]
...
s.free;

[CAMOBAP]

Вполне подходит.Но тут появляется другой вопрос.
К элементам доступ идет по номеру. А как реализовать без номера?
скажем так

procedure TForm1.Button1Click(Sender: TObject);
begin
s[1]:=Label1.Caption;
s[2]:=Label2.Caption;
s[3]:=Label3.Caption;

end;

а затем по нажатию кнопки надо считать опять 3 строки, но с следующими номерами

s[4]:=Label1.Caption;
s[5]:=Label2.Caption;
s[6]:=Label3.Caption;

[Stilet]

Тоесть без номера? по ключу?

...:=s.Values[Ключ]

[CAMOBAP]

Собственно надо что бы блоками по 6 строк читало начиная со второй.

s[2]:=label1.Caption;
s[3]:=label2.Caption;
s[4]:=label3.Caption;
s[5]:=label4.Caption;
s[6]:=label5.Caption;
s[7]:=label6.Caption;

А по ключи я даже не знаю как реализовать.

[Stilet]

читало начиная со сторой.

Так твой пример не читает в пишет... Ты уж определись то.

[CAMOBAP]

Считываем из файла в стринглист. А затем по нажатию кнопки, выводим 6 строк (начиная со второй) на Label's.По второму нажатию на кнопку выводим на Label's следующие 6 строк.

[Mad_Cat]

label1.Caption:=s[k]
label2.Caption:=s[k+1];
label3.Caption:=s[k+2];
label4.Caption:=s[k+3];
label5.Caption:=s[k+4];
label6.Caption:=s[k+5];
k:=k+6;

k-обьявить глобально) и в Oncreate

K:=2;

+ добавить проверку на выход K за границы s

[CAMOBAP]

Способ хорошо. А как можно в массив записей считать? Ведь там у каждой записи могут быть элементы?

[CAMOBAP]

Mad_Cat только в данному случае k=1 и исчисление идет от него, так как в stringlist счет элементов начинается с 0.