Задача по длинным строкам

[TesLa1992]

Требуется написать программу которая считывает из файла 10 строк(строка состоит из имени,фамилии,возраста, разделителем между словами является запятая) и записать имя, фамилию и возраст в отдельные подстроки Name,Surname и Age, которые входят в запись из 10 людей.

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

Буду благодарен за любые советы или решения)

[Человек Панда]

10 строк не значит длинная.Если это паскаль,то длина строки ограничена 255 символов.На все параметры должно хватить.Вообще есть еще widestring(Unicode).Там вроде нет ограничений на длину.Считать из файла через readln,там уже работать.Пока только на таком абстрактном уровне.Насчет конкретной реализации надо думать.

[TesLa1992]

При чём здесь кол-во строк и длина? я имею ввиду работу со строками через
модуль Strings(подключаемый в программу), а не со стандартным типом string
http://pascal.kansoftware.ru/?id=gl11_7~1

[Jaguar83]

Как-то так можно...

type
Info = record
    Name: PChar;
    Surname: PChar;
    Age: PChar;
end;

var
  str, tmp, p : PChar;  rec: Info;

begin
...
str:='Ivan;Petrov;18';
tmp:=StrAlloc(StrLen(str)+1);
rec.Name:=StrAlloc(StrLen(str)+1);
rec.Surname:=StrAlloc(StrLen(str)+1);
rec.Age:=StrAlloc(StrLen(str)+1);

p:=StrRScan(str,';');
if p <> nil then
begin
  StrCopy(rec.Age,p+1);
  StrLCopy(tmp, str, StrLen(str)-StrLen(p));
  p:=StrRScan(tmp,';');
  if p <> nil then
  begin
    StrCopy(rec.Surname,p+1);
    StrLCopy(rec.Name, tmp, StrLen(tmp)-StrLen(p));
  end;
end;
...
StrDispose(tmp);
StrDispose(rec.Name);
StrDispose(rec.Surname);
StrDispose(rec.Age);
...
end.

Здесь только фрагмент кода для разбиения одной строки.
Надеюсь остальное сам сможешь сделать.

И еще. Возможно этот код можно улучшить, написал первое, что пришло в голову, но зато работает.

UPDATE
Это решение только через строки PChar. Если что, то возможно преобразовать строку PChar в обычную паскалевскую String с помощью StrPas