Вот такой вот код загоняет в массив из записей
Код:
type
Bylet = record
No:string[12];
Reys:string[12];
Data:string[12];
FIO:string
end;
Файлик в котором слова через пробел.
Проблема в том что все No:string[12]; остаются пустыми.
И может заодно скажите как указатель в файле вернуть в начало или методы определения количества строк файла без ридлни счетчика)
Код:
procedure TForm1.Button4Click(Sender: TObject);
begin
fname:=Label6.Caption+'\'+Edit6.Text;
AssignFile(f, fname);
Reset(f);
while not EOF(f) do
begin
I:=i+1;
readln(f,s);
end;
SetLength(rec,i);
I:=0;
CloseFile(f);
AssignFile(f, fname);
Reset(f);
while not EOF(f) do
begin
Readln(f,s);
for I := 0 to (length(s)) do
begin
if s[i]<>' ' then
Begin
case j of
0:rec[k].No:=rec[k].No+s[i];
1:rec[k].Reys:=rec[k].Reys+s[i];
2:rec[k].Data:=rec[k].Data+s[i];
3:rec[k].FIO:=rec[k].FIO+s[i];
end
end
else J:=j+1;
end;
k:=k+1;
i:=0;
j:=0;
buf[0]:='';
buf[1]:='';
buf[2]:='';
buf[3]:='';
end;
пользуемся тэгами