- Код: Выделить всё
program prog;
{$mode objfpc}
uses
Classes, SysUtils;
var
list: TStringList;
begin
list := TStringList.Create;
list.Append('Moscow');
list.Append('Tokio');
list.Append('New York');
list.Delimiter := '/';
writeln(list.DelimitedText);
list.Free;
end.
Этот код выведет:
Moscow/Tokio/"New York"
а мне нужно чтобы кавычки не добавлялись и было так:
Moscow/Tokio/New York
Как это можно сделать?
Спасибо.