Função para copia de substring

[Daniel Salles 0]

Boa noite a todos, eu preciso de uma ajudinha de vocês num código que não sei como construir. Minha situação é a seguinte, tenho um memo carregado com uma resposta de um site (tudo, inclusive o colchete, faz parte da resposta):

 {"id":12345,"codconta":12345,"nomeconta":fulano,"nivelconta":10}

Eu preciso de uma rotina que, dependendo da situação, eu informe que preciso de "id" e ela me retorne "12345", ou qualquer outra palavra-chave com seu respectivo retorno.
Eu vi na internet, em vários fóruns, inclusive neste, que o povo utilizou uma função pos() aliado com copy. Mas não encontrei ninguém ensinando como funciona essa bendita função. Vocês podem me ajudar nisso?

 

Obs: as informações respectivas de "id","codconta","nomeconta" podem variar, então pensei em algo que:  (A) localizasse que tipo de informação eu quero, (B) copiasse a informação de ":" até ",".

[Daniel Salles 0]

Boa noite novamente, depois de um tempo tentando creio que consegui fazer a função, porém estou com um problema no meu fonte que não consigo fazer debug neste trecho para realizar testes. Em todo caso, vou deixar o codigo para que deem uma olhada, não sou bom programador, mas eu vou tentando rsrs

 

function TForm1.RetornaSubstring(Frase, TipoRetorno : String): String;
var
	Texto, StringRetorno : string;
	contador, i : integer;
begin
	Texto := '';
  StringRetorno := '';
  contador:=2;
//FOR PARA ENCONTRAR "TipoRetorno";

	for i:=contador to length(Frase) do
	begin
		while (frase[i] <> '"') or (frase[i] <> ',') or (frase[i] <> ':') do
			StringRetorno := StringRetorno+Frase[i];
			if StringRetorno = TipoRetorno then
        begin
          contador:=i+2;
				  break
        end
			else
				StringRetorno := '';
	end;

//FOR PARA COPIAR O RETORNO DO "TipoRetorno";

	for i:=contador to length(frase) do
	begin
		while (frase[i] <> ',') or (frase[i] <> '}') do
			texto:=texto+frase[i];
		Result := texto;
	end;
end;

O que eu fiz foi até simples, como eu sei onde eu chego na informação, e quase onde ela está, criei esta rotina que vai fazer uma varredura caractere por caractere e vai armazenando eles numa variável do tipo string, cada vez que a varredura chega no final da palavra-chave, ele deve testar se a palavra-chave que eu procuro é igual a que a varredura encontrou. Se não for, a variavel string é resetada e a varredura segue adiante até encontrar a palavra-chave. Se encontrar, é feita uma segunda varredura (similar a primeira) atras o resultado do retorno do site, que no caso vai estar sempre precedido por (:) e sucedido por uma (,). Encontrado o resultado, a função retorna a variável string com o valor que procuro.