PCHAR строка с разделителями #13#10. Как вычленить отдельные "подстроки"

[EdNovice]

Существует строка типа pchar, которая состоит из "подстрок" различной длины разделенные #13#10. Как вычленить отдельные "подстроки"(как например чтение строки из файла readln).

[bphoenix]

используй функцию ExtractStrings:

const
  ptr : PChar = 'bla'#13#10'bla1'#13#10'bla2'#13#10#0;

var
  SS : TStrings;
begin
  SS := TStringList.Create;
  ExtractStrings( [ #13, #10 ], [], ptr, SS ); // после выполнения этой функции SS будет содержать три строки: 'bla', 'bla1' и 'bla2'
...
  SS.Free;
end;