[Elza]

Спасибо вам, схема вроде понятная, я просто затрудняюсь это воплотить в коде. По этому ищу другие способы.

сделала через попу, но вроде работает. Хотя думаю так не правильно делать

Код:

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], ',')); 

А кто знает, как считать тоже самое только через TMemoryStream???

Просто если, файл 12.test будет иметь в себе по мимо нужного текста, такое

/߿Ė����羶Ƴ0Αᾠq=ǼMۜK4'͏̴Lq.��ŮЊмA߁Ȭ;;ퟹ�սѪǍ檼����B䇟
5ͼ pP׌\aؿ

То ничего ничего не выходит=(