Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ \ Тексты \ Удаление из строк двойных "\" и "/"

Удаление из строк двойных "\" и "/"

function RepairPathName(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;

Название: Удаление из строк двойных "\" и "/"
Дата публикации: 2004-01-26 (3540 Прочтено)

 
 

 

Page generation 0.030 seconds