AnsiMidStr(deger, 60 , 10)

(13-08-2022, Saat: 14:48)akuyumcu63 Adlı Kullanıcıdan Alıntı: merhaba;
dünya tarihi için 
http://worldtimeapi.org/api/ip
adresinden aşağıdaki bilgiyi okuyorum.

{"abbreviation":"+03","client_ip":"5.24.30.18","datetime":"2022-08-13T14:33:01.340405+03:00","day_of_week":6,"day_of_year":225,"dst":false,"dst_from":null,"dst_offset":0,"dst_until":null,"raw_offset":10800,"timezone":"Europe/Istanbul","unixtime":1660390381,"utc_datetime":"2022-08-13T11:33:01.340405+00:00","utc_offset":"+03:00","week_number":32}

amacım bu veri içindeki datetime":"2022-08-13 bilgiden 2022-08-13 bu tarih bilgisini okumak. 

AnsiMidStr(deger, 60 , 10)

bu şekilde okuma işlemini yapıyorum. ancak gelen bilgi günlük değişebiliyor. bu durumda tarih bilgisinin konumu değişiyor ve hatlı bilgi okunmuş oluyor.

günün tarih bilgisini doğru okumak için ne yapabilirim.

Function GetJSONParamByName(JSonData, ReqPrm:String):String;
Var
Line, nSearchString:String;
List:TStringList;
I, nPos:Integer;
 
Begin
Result:='?';
if Length(JSonData)<3 then Exit;
JSonData[Low(JSonData)]:=' ';
JSonData[High(JSONData)]:=' ';
JSonData:=Trim(JSonData);
nSearchString:='"'+ReqPrm+'":';
List:=TStringList.Create;
List.Text:=StringReplace(JSonData, ',', chr(13), [rfReplaceAll, rfIgnoreCase]);
for I:=0 To List.Count-1 do
Begin
 Line:=List.Strings[I];
 nPos:=Pos(nSearchString, Line);
 if (nPos>0) then
 Begin
  Result:=Copy(Line, nPos+nSearchString.Length, Length(Line));
  if Result[Low(Result)] = '"' then
   Result[Low(Result)]:=' ';
  if Result[High(Result)] = '"' then
   Result[High(Result)]:=' ';
  Result:=Trim(Result);
  Break;
 End;  
End;
List.Free;
End;



procedure TForm1.FormCreate(Sender: TObject);
Var
Veri:String;

begin
Veri:='{"abbreviation":"+03","client_ip":"5.24.30.18","datetime":"2022-08-13T14:33:01.340405+03:00","day_of_week":6,'+
      '"day_of_year":225,"dst":false,"dst_from":null,"dst_offset":0,"dst_until":null,"raw_offset":10800,"timezone":"Europe/Istanbul",'+
      '"unixtime":1660390381,"utc_datetime":"2022-08-13T11:33:01.340405+00:00","utc_offset":"+03:00","week_number":32}';

showmessage( GetJSONParamByName(Veri, 'datetime') );

halt;
end;

(13-08-2022, Saat: 14:48)akuyumcu63 Adlı Kullanıcıdan Alıntı: merhaba;
dünya tarihi için 
http://worldtimeapi.org/api/ip
adresinden aşağıdaki bilgiyi okuyorum.

{"abbreviation":"+03","client_ip":"5.24.30.18","datetime":"2022-08-13T14:33:01.340405+03:00","day_of_week":6,"day_of_year":225,"dst":false,"dst_from":null,"dst_offset":0,"dst_until":null,"raw_offset":10800,"timezone":"Europe/Istanbul","unixtime":1660390381,"utc_datetime":"2022-08-13T11:33:01.340405+00:00","utc_offset":"+03:00","week_number":32}

amacım bu veri içindeki datetime":"2022-08-13 bilgiden 2022-08-13 bu tarih bilgisini okumak. 

AnsiMidStr(deger, 60 , 10)

bu şekilde okuma işlemini yapıyorum. ancak gelen bilgi günlük değişebiliyor. bu durumda tarih bilgisinin konumu değişiyor ve hatlı bilgi okunmuş oluyor.

günün tarih bilgisini doğru okumak için ne yapabilirim.

var
  jsonValue: TJSONValue;
begin
  jsonValue:= TJSONObject.ParseJSONValue(jsonData);
  if jsonValue <> nil then
  begin
    ShowMessage(jsonValue.GetValue<string>('datetime'));
    jsonValue.Free;
  end;
end;