ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.FormCreate(Sender: TObject);
var
 s:string;
 current_int, current_name:string;
 goroda:array [1..100] of string;//за назв. переменной не ругать  :D 
begin
 s:='{"countries":[[19,"Австралия"],[20,"Австрия"],[5,"Азербайджан"],[21,"Албания"]';

 delete(s, 1, 14);

 while 1<>2 do
  begin
    current_int:=copy(s, pos('[', s)+1, pos(',', s)-1-pos('[', s));
    current_name:=copy(s, pos('"', s)+1, pos('"]', s)-1-pos('"', s));
    goroda[strtoint(current_int)]:=current_name;
    if length(s)-pos('"]', s)=1 then
     begin
       break;
     end
    else
     begin
       delete(s, 1, 1+length(current_int)+2+length(current_name)+3);
     end;
   end;
end;

	
AnsiString sTemp = "";
TStringList* CountryList = new TStringList;
sTemp = "{\"countries\":[[19,\"Австралия\"],[20,\"Австрия\"],[5,\"Азербайджан\"],[21,\"Албания\"],[22,\"Алжир\"],[23,\"Американское Самоа\"],[24,\"Ангилья\"],[25,\"Ангола\"],[26,\"Андорра\"],[27,\"Антигуа и Барбуда\"],[28,\"Аргентина\"],[6,\"Армения\"],[29,\"Аруба\"],[30,\"Афганистан\"],[31,\"Багамы\"],[32,\"Бангладеш\"],[33,\"Барбадос\"],[34,\"Бахрейн\"],[3,\"Беларусь\"],[35,\"Белиз\"],[36,\"Бельгия\"],[37,\"Бенин\"],[38,\"Бермуды\"],[39,\"Болгария\"],[40,\"Боливия\"]";
sTemp.Delete(1, sTemp.Pos("[")); // удаляем лишнее
CountryList->Delimiter = ','; // указываем разделитель
CountryList->DelimitedText = sTemp; // текст разбивается на строки, разделителем считаются кавычки  и запятая
for(int i=0; i < CountryList->Count; ++i) // перебираем все полученные строки
  	if(CountryList->Strings[i].Pos("[") || CountryList->Strings[i].Pos("]")) // если в строке есть квадратные скобки, удаляем ее
  		CountryList->Delete(i--);
Memo1->Lines->AddStrings(CountryList); // выводим список в мемо
Edit1->Text = CountryList->CommaText; // или в едит через запятую
delete CountryList;