Работа с текст. файлом, проверка значений в нем.

[bill]

дима
2
5
1
саша
5
1
1
игорь
5
4
3 - так надо вводить,т.к. оно считывает все как одну строку из char-ов.


а вот и сама программа написанная более просто:


procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
i,z,k,p:integer;
a:array[1..9]of record
slovo:string;
x:integer;
y:integer;
z:integer;
balls:integer;end;
begin
assignfile(f,'d:/мой2.txt');
reset(f);k:=strtoint(edit1.Text);
for i:=1 to 9 do
readln(f,a[i].slovo,a[i].x,a[i].y,a[i].z);
for i:=1 to 9 do begin
if (a[i].x>=k)and(a[i].y>=k)and(a[i].z>=k) then begin
memo1.Lines.add(a[i].slovo);
memo1.Lines.add(inttostr(a[i].x));
memo1.Lines.add(inttostr(a[i].y));
memo1.Lines.add(inttostr(a[i].z));
end;
end;
closefile(f);

end;

(если я конечно гнегде не ошибся) но у меня во всяком случае все работало.

[AVer]

В цикле до конца файла делаешь следующее:
1) Считываешь строку целиком.
2) Все, что до первого пробела - фамилия.
3) Все остальное проверяешь на наличие "1", "2" и "3" - Если нет, то фамилию на печать