Читка с файла, Как прочитать из файла указанный пример? Опции

[Perfez]

Немного краснею спросив настолько глупый вопрос но... Я должен когда-нибудь научиться этому...

ADD 1 1
GET 1 1 5 5

Как прочитать следущее из файла в виде

ADD{string} x{integer} y{integer}
GET{string} x1{integer} y1{integer} x2{integer} y2{integer}

Сообщение отредактировано: Perfez - 18.05.2007 18:21

[volvo]

Разберешься?

var
  s: string;
  arr: array[1 .. 10] of integer;
  i, n: integer;
  f: text;
  ch: char;


begin
  assign(f, '__ee.txt'); reset(f);

  while not eof(f) do begin
    s := '';
    repeat
      read(f, ch);
      s := s + ch
    until ch = ' ';

    n := 0;
    while not seekeoln(f) do begin
      inc(n);
      read(f, arr[n]);
    end;
    readln(f);

    writeln('read data:');
    write('s = ', s, ' numbers: <');
    for i := 1 to n do write(arr[i]:4);
    writeln('>')

  end;

  close(f);
end.