program ideone;
{$MODE OBJFPC}{$LONGSTRINGS ON}
uses
Classes;
var
List: TStringList;
ItemIdx: Integer;
Name, Value: String;
begin
List := TStringList.Create();
try
List.Add('264,801 - 270,529 km=Powiat Łęczycki');
List.Add('270,529 - 271,476 km=Powiat Łowicki');
List.Add('271,476 - 273,697 km=Powiat Łęczycki');
List.NameValueSeparator := '=';
for ItemIdx := 0 to List.Count - 1 do
begin
Name := List.Names[ItemIdx];
Value := List.Values[Name];
WriteLn('Name: "', Name, '" | Value: "', Value, '"');
end;
finally
List.Free();
end;
end.
cHJvZ3JhbSBpZGVvbmU7Cgp7JE1PREUgT0JKRlBDfXskTE9OR1NUUklOR1MgT059Cgp1c2VzCiAgQ2xhc3NlczsKdmFyCiAgTGlzdDogVFN0cmluZ0xpc3Q7CiAgSXRlbUlkeDogSW50ZWdlcjsKICBOYW1lLCBWYWx1ZTogU3RyaW5nOwpiZWdpbgogIExpc3QgOj0gVFN0cmluZ0xpc3QuQ3JlYXRlKCk7CiAgdHJ5CiAgICBMaXN0LkFkZCgnMjY0LDgwMSAtIDI3MCw1Mjkga209UG93aWF0IMWBxJljenlja2knKTsKICAgIExpc3QuQWRkKCcyNzAsNTI5IC0gMjcxLDQ3NiBrbT1Qb3dpYXQgxYFvd2lja2knKTsKICAgIExpc3QuQWRkKCcyNzEsNDc2IC0gMjczLDY5NyBrbT1Qb3dpYXQgxYHEmWN6eWNraScpOwoKICAgIExpc3QuTmFtZVZhbHVlU2VwYXJhdG9yIDo9ICc9JzsKCiAgICBmb3IgSXRlbUlkeCA6PSAwIHRvIExpc3QuQ291bnQgLSAxIGRvCiAgICBiZWdpbgogICAgICBOYW1lIDo9IExpc3QuTmFtZXNbSXRlbUlkeF07CiAgICAgIFZhbHVlIDo9IExpc3QuVmFsdWVzW05hbWVdOwoKICAgICAgV3JpdGVMbignTmFtZTogIicsIE5hbWUsICciIHwgVmFsdWU6ICInLCBWYWx1ZSwgJyInKTsKICAgIGVuZDsKICBmaW5hbGx5CiAgICBMaXN0LkZyZWUoKTsKICBlbmQ7CmVuZC4K