Парсинг в файле с непонятными символами

[elzafox]

Имеется код

function Pars(TextIn, Text, TextOut:string):string;
var
TempStr: string;
begin
  Result:='';
  TempStr:=Text;
  TempStr:=Copy(TempStr, Pos(TextIn, TempStr) +Length(TextIn), Length(TempStr));
  Delete(TempStr, Pos(TextOut, TempStr), Length(TempStr));
  Result := TempStr;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
var
list:TStrings;
ItData: TListItem;
d:integer;
begin
list :=TStringList.Create;
ItData := ListView1.Items.Add;
list.LoadFromFile('12.test');
for d := 0 to list.Count-1 do
begin
ItData.Caption := pars('"date": "', list[d], '",');
ItData.SubItems.Add(pars('"Time": "', list[d], '",'));
ItData.SubItems.Add(pars('"Name": "', list[d], '",'));
ItData.SubItems.Add(pars('"Type": "', list[d], '",'));
ItData.SubItems.Add(pars('"chislo": ', list[d], ','));

Вопрос вот в чем! Результат данный код даёт, но, если в файле 12.test
будет, что то типа такого

߿Ė����羶Ƴ0Αᾠq=ǼMۜK4'͏̴Lq.��ŮЊмA߁Ȭ;; ퟹ�սѪǍ檼��

по мимо нужных данных, то ничего не получается. Кто подскажет, как же быть?

[Stilet]

но, если в файле 12.test
будет, что то типа такого

То наверное нужно для TStringList при загрузке указывать класс TEncoding с нужным свойством, позволяющим декодировать юникод. Это если в файле действительно юникод. Однако судя по цитате это могут быти бинарные данные. И вот тогда придется использовать TFileStream вместо TStringList.

[Человек_Борща]

Может вы просто GZIP данные распарсить собрались, не разжав их?

[elzafox]

Сообщение от Человек_Борща

Может вы просто GZIP данные распарсить собрались, не разжав их?

может проблемка решена таким способом:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  S: String;
begin
  with TFileStream.Create('12.test', fmOpenRead) do
  try
    SetLength(S, Size);
    ReadBuffer(S[1], Size);
  finally
    Free;
  end;
  for i := 1 to Length(S) do
    if S[i] = #0 then
      S[i] := #10;
 
  ShowMessage(Pars('"dateTime": "', S, '",'));
end;