помогите с массивами

[lg12]

имеется файл с содержимым : Спартак, Цска, Динамо, Локомотив.
вот мой код

 procedure TForm1.Button1Click(Sender: TObject);
var f1:textfile;
a:array[1..4] of string;
i:integer;
begin
assignfile(f1,'D:\d.txt');
reset(f1,a[i]);
memo1.Lines.Add(a[i]);
end;
end.

мне нужно эти 4 команды из файла связать с массивом

[Mixasik]

procedure TForm1.Button1Click(Sender: TObject);
var f1:textfile;
a:array[1..4] of string;
i:integer;
begin
assignfile(f1,'D:\d.txt');
reset(f1]);
for i:= 1 to 4 do
    Readln(F1, a[i]);
// цикл for не рекомендуется - это как примере для 4 элементов.
end;
end.

Процедура Readln считывает строку из файла.
Но с файлами не рекомендуется использовать цикл с известным числом повторений, а рекомендуется использовать такую конструкцию:

While not eof(f1) do
 Begin
// Здесь работает с файлом
 End;

Таким образом пока не конец файла работаем с его содержимым.

[puporev]

Если стоит задача создания массива из строк текстого файла, для дальнейшей работы с ним(сортировки, поиска и т.д.), то мы не знаем размер будующего массива. Поэтому используем динамические массивы.

procedure TForm1.Button1Click(Sender: TObject);
var
f1:textfile;
s:string;
a:array of string;
i,j:integer;
begin
assignfile(f1,'D:\d.txt');
reset(f1);
while not eof(f1) do
 begin
  readln(f1,s);
  Memo1.Lines.Add(s);//записываем файл построчно в Мемо
 end;
Setlength(a,Memo1.Lines.Count);//определяем размер массива(индексация с ноля)
for i:=0 to Memo1.Lines.Count-1 do
a[i]:=Memo1.Lines.Strings[i];//создаем массив
end;

[lg12]

а если файл такой
спартак динамо цска локомотив
10 20 30 40.
Тоесть у каждой команды определенное количество очков. как можно с ними работать? вот мой код

procedure TForm1.Button1Click(Sender: TObject);
type
dron = record
 name : string;
 fany:integer;
 ocki : integer;
 end;
var
f1:textfile;
s:string;
a:array of dron;
i,j:integer;
begin
assignfile(f1,'D:\d.txt');
reset(f1);
while not eof (f1) do
begin
readln(f1,s);// записываем файл построчно в мемо
memo1.Lines.Add(s);
setlength(a,memo1.lines.Count); //определяем размер массива
for i:=0 to memo1.Lines.Count do
a[i].name:=memo1.lines.strings[i]; //создаем массив
for i:=0 to memo1.Lines.Count-1 do
a[i].ocki:=memo1.Lines.Strings[i];
end;
end;
end.

[puporev]

1. Для чего в записи поле fany? Наверное это количество фанатов?
2. Файл удобнее написать так
спартак 5000 10
динамо 5500 20
цска 8000 30
локомотив 6000 40
Затем читать строку из Мемо и парсить.

a[i].name:=copy(s,1,pos(' ',s)-1);//первое слово в строке
delete(s,1,pos(' ',s));
a[i].fane:=StrToint(copy(s,1,pos(' ',s)-1));//второе
delete(s,1,pos(' ',s));
a[i].ocki:=StrToint(copy(s,1,pos(' ',s)));//последнее

[lg12]

procedure TForm1.Button1Click(Sender: TObject);
type
dron = record
 name : string;
 fany:integer;
 ocki : integer;
 end;
var
f1:textfile;
s:string;
a:array of dron;
i,j:integer;
begin
assignfile(f1,'D:\d.txt');
reset(f1);
while not eof (f1) do
begin
readln(f1,s);// записываем файл построчно в мемо
memo1.Lines.Add(s);
end;
a[i].name:=copy(s,1,pos(' ',s)-1);//первое слово в строке
delete(s,1,pos(' ',s));
a[i].fany:=StrToint(copy(s,1,pos(' ',s)-1));//второе
delete(s,1,pos(' ',s));
a[i].ocki:=StrToint(copy(s,1,pos(' ',s)));//
end;
end.

не выводит в мемо ничего и появляется сообщение об ошибке

From Stilet: код оформляй читабельно. Тегом по кнопке #. Ато обижусь.

[puporev]

не выводит в мемо ничего

Если в файле есть хоть что-то то это и должно вывести.
А формирование массива записей наверное надо тоже в цикле делать, как раньше формирование массива строк.
Да и массив желательно создать.

[lg12]

Сообщение от puporev

А формирование массива записей наверное надо тоже в цикле делать, как раньше формирование массива строк.
Да и массив желательно создать.

можешь дописать чего у меня нет или то что не правильно? Я с массивами ваще не очень( заранее спасибо

[puporev]

Посмотрите во вложении пример чтения данных из текстового файла, создания массива записей, его сортировки.