Скачать Исправление ошибки в tFileDialog

07.12.1994
Скачать файл (12,73 Кб)

function RelativePath(var S: PathStr): Boolean;
begin
  S := LTrim(RTrim(S));
  RelativePath := not ((S <> '') and (S[1] = '\') or (S[2] = ':'));
end;