Чтение из файла, нужна помощь

[RgnRok]

Добрый вечер уважаемые форумчане.
Возникла проблема при чтении даных из текстового файла.
файл имеет такую структуру:

Аношенко Г. 40 40 40
Ракаускайте К. 30 33 33
Терентьев М. 31 34 35
Хардин К. 50 50 50
Юрасова Г. 40 50 45
Лебедев С. 50 46 45

где сперва идет фамилия с инициалами, а после 3 оценки по 3-м модулям.
данные файла необходимо записывать в строку.
Пример части данной програы написан ниже, вродебы все должно работать но не хочет( надеюсь на ваше понимание и помощь
program exe;
type yy=record
surname:string;
NameLetter:string;
bal1:integer;
bal2:integer;
bal3:integer;
end;
var
a:array [1..6] of yy;
f:text;
i:integer;
begin
assign (f,'C:\pascal\bin\a.txt');
reset(f);
i:=1;
while not eof(f) do
begin
readln(f,a[i]., a[i].NameLetter, a[i].bal1, a[i].bal2, a[i].bal3);

i:=i+1;
end;
close(f);
end.

[Hollander]

Смотри, ты пишешь:

readln(f,a[i].surname,a[i].bal);

Т.е. читаешь из файла f строку и bal(которого вообще у тебя нету).
надо так

readln(f,a[i].surname, a[i].NameLetter, a[i].bal1, a[i].bal2, a[i].bal3);

И не забудь добавить NameLetter в свою структуру. Вроде так.

[RgnRok]

ой это я случайно описался сдесь) в программе написано имеено так как ты написал выше. На стадии компилятора все отлично проходит, а вот при запуске нет пишет "недопустимый числовой формат"

[Serge_Bliznykov]

просто так не получится читать!
Обязательно нужно читать строчку из файла в строковую переменную, а дальше выделять нужные куски через Pos() и Copy()...
пишу так, приблизительно:

var
  s : string;
  k : integer;
...
i :=0 ;
while not eof(f) do
begin
  readln(f,s);
  if Pos('.',s)>3 then begin
      i := i + 1;
      a[i].surname := Copy(s,1,Pos('.',s)-3);
      a[i].NameLetter := Copy(s,Pos('.',s)-2,2);
      Delete(s,1,Pos('.',s));
      Val(Copy(s,1,Pos(' ',s)-1,a[i].bal1,k);
      Delete(s,1,Pos(' ',s));
      Val(Copy(s,1,Pos(' ',s)-1,a[i].bal2,k);
      Delete(s,1,Pos(' ',s));
      Val(s,a[i].bal3,k);
   end;
end;

[capta1n]

Все верно, только при чтении из файла всегда надо проверять на наличие ошибки - как при чтении файла , так и у функции вал второй параметр

[RgnRok]

[QUOTE=Serge_Bliznykov;186119]просто так не получится читать!
Обязательно нужно читать строчку из файла в строковую переменную, а дальше выделять нужные куски через Pos() и Copy()...
QUOTE]

Можете пожалуйсто в кратци пояснить почему именно не получится считывать начальным методом. Чтобы я смог понять

[capta1n]

потому что компьютер cтрог в понимании - он не может понять человека, он может выполнять строго определенные функции, определенные языковым синтаксисом - когда вы читаете с консоли, тобишь экран+клавиатура, в терминале, тогда вы можете задавать сколь угодно вводимых значений, потому что тогда компьютер понимает, сколько ему нужно принять данных, введенных пользователем, ибо пользователь вводит их сам, а когда вы читаете из файла, компьютер не может понять, что считать за первую переменную, и допустим, сколько ей выделять символов в строке, а сколь выделять на вторую - он понимает только определенное чтение одной компоненты файла, коеми являются строки, а более мелкими (элементарными) компонентами текстового файла являются символы - вот отталкиваясь от этого компьютер и производит чтение из файла - конечно, когда вы читаете допустим в переменную перечисляемого типа ( целого, вещественного ) файл делает замену из символа в число ( если читаемый символ строко числовой ) - он делает преобразования - как только символ не совпадает с типом переменно, в которую читают, происходит ошибка ввода, проверяемая функцией IOResult <> 0 - при отключенной директиве {$-} - надеюсь все понятно

[goblinyara]

to capta1n

хмм... вроде, как я понял, структура входного файла определена заранее, и отхождения от неё не должно быть... так что здесь ваше замечание как-то неуместно... хотя, конечно, очень ценное

[capta1n]

оно уместно, если человек просит объяснить, почему его вводом пользоваться нельзя

[Serge_Bliznykov]

прогоните вот эту программку. может Вам станет чуть понятнее...

var
  f : text;
  s : array[1..10] of string;
  i : integer;
begin
  Assign(f,'test1.txt');
  Reset(f);
  Readln(f,s[1],s[2],s[3],s[4],s[5]);
  for i:=1 to 5 do
    WriteLn(i:1,s[i]);
  Close(f)
end.

т.к. размер строки s не задан, то Read(f,s) прочитает столько, сколько сможет (т.е. в нашем случае всё до конца строки). Если бы текст был структурированным, например, под фамилию и отчество - в текстом файле РОВНО nn символов. тогда строку определяем как s : string[nn]; и тогда прочитается из файла ровно nn знаков..

capta1n, я бы просто хотел обратить Ваше внимание на тот факт, что Вы неправы насчёт того, что с консоли это будет читаться как то по другому, не так, как из файла - хоть с консоли (ввод оператора), хоть из текстового файла - правила обработки входных данных будут одни и те же!