fork(1) download
  1. program ideone;
  2.  
  3. {$MODE OBJFPC}{$LONGSTRINGS ON}
  4.  
  5. uses
  6. Classes;
  7. var
  8. List: TStringList;
  9. ItemIdx: Integer;
  10. Name, Value: String;
  11. begin
  12. List := TStringList.Create();
  13. try
  14. List.Add('264,801 - 270,529 km=Powiat Łęczycki');
  15. List.Add('270,529 - 271,476 km=Powiat Łowicki');
  16. List.Add('271,476 - 273,697 km=Powiat Łęczycki');
  17.  
  18. List.NameValueSeparator := '=';
  19.  
  20. for ItemIdx := 0 to List.Count - 1 do
  21. begin
  22. Name := List.Names[ItemIdx];
  23. Value := List.Values[Name];
  24.  
  25. WriteLn('Name: "', Name, '" | Value: "', Value, '"');
  26. end;
  27. finally
  28. List.Free();
  29. end;
  30. end.
  31.  
Success #stdin #stdout 0s 852KB
stdin
Standard input is empty
stdout
Name: "264,801 - 270,529 km" | Value: "Powiat Łęczycki"
Name: "270,529 - 271,476 km" | Value: "Powiat Łowicki"
Name: "271,476 - 273,697 km" | Value: "Powiat Łęczycki"