Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
functionRepairPathName(D1:String): String; var
i,p : Integer; prevCh :Char; begin
Result := d1; p := 0; prevCh := #0; for i := 1 to Length(d1) do begin inc(p); Result[p] := d1[i]; if d1[i] = '/' then Result[p] := ''; if d1[i] in ['', '/'] then if PrevCh in ['', '/'] then dec(p); PrevCh := d1[i]; end; SetLength(Result, p); end
;