На сайті:
Користувачів: 0
Гостей: 11
..:: www.relax-info.com - розважально-інформаційний портал ::..
Додому Карта сайту Іван Кравець – персональний сайт
Швидкий перехід:
Розділи сайту
Історія запитів
Новини
Завантаження ...
Голосування
Ноутбуком якого виробника Ви користуєтесь?
Голосування дозволено тільки зареєстрованим користувачам
Результати голосування
Всі голосування
 Relax-Info » Форум » Програмування » Delphi » Karakurt: help!!!!!!!!!!!!

..::.. Форум ..::..

..:: Delphi ::..


Karakurt

 help!!!!!!!!!!!!

06:12:46, 5 жовтня 2006 р.

Повідомлень: 29

Ранг: Залихвацький козаченько

Попередження: (10%)

Написати листа користувачу сайту - <B>Karakurt</B>

 Подскажите почему вотета функцыя не хочет работать....
Плиз.........Очень надо......:^( :^( :^( :^( :^( :^(

function GetDirNameFromPath(Path: String): String;
var
Name : String;
i, LastPos:integer;
begin
LastPos:=0;

for i := 1 to Length(Path) - 1 do
if Path = '\' then LastPos := i;
delete(Path,LastPos+1, Length(Path)-LastPos);

for i := 1 to Length(Path)-1 do
if Path = '\' then LastPos := i;
Name := Copy(Path,LastPos+1, Length(Path)-LastPos);
Result := Name;
end;

.: Теми :.
help!!!!!!!!!!!! - Karakurt - 06:12 05.10.2006
help!!!!!!!!!!!! - LEOPARD - 07:57 05.10.2006
help!!!!!!!!!!!! - Karakurt - 13:01 05.10.2006
help!!!!!!!!!!!! - dont - 13:46 05.10.2006
help!!!! - Karakurt - 17:08 05.10.2006
help!!!! - dont - 17:26 05.10.2006
help!!!!!!!!!!!! - LEOPARD - 17:16 05.10.2006
help!!!!!!!!!!!! - Karakurt - 03:59 06.10.2006
help!!!!!!!!!!!! - Мольфар - 13:48 20.11.2008
Перейти у форум

Попередня тема .:. Delphi .:. Наступна тема
Форум » ..:: www.relax-info.com ::..
Календар подій
Знайомства

Мар'яна

---
Люблю життя в цілому і
пригоди зокрема, моя
стихія-музика, без неї не
уявляю ...
..:: Всі анкети ::..
Інформери
Статистика

..:: www.relax-info.com - розважально-інформаційний портал ::..

 Автор і керівник проекту: Кравець Іван Михайлович   Всі права захищені, 2005-2012 ©