Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Opendialog, ошибка, догадываюсь почему но... 
V
    Опции темы
Palladin
Дата 10.8.2006, 18:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17



Вообщем в свою программу решил вбиндить опендиалог(так практичнее) вообщем юзер кликает по кнопке, открывается опендиалог, если он там что-то выбрал то я сохраняю filename в переменную, после этого мне нужно её преобразовать, т.е. разделить на две строки, в первой стркое путь к файлу(без последнего слеша) вторая строка имя екзешника который выбрал юзер, мой код приводить не хочу т.к. там как всегда велосипед smile думаю всё это можно сделать строк в 10 кода!

P.S. вылетает ошибка и я думаю что это потому что путь наполовину русскими буквами на половину английскими, а процедура opendialog1.filename может считать только ENGLISH 

 smile  smile  smile  smile  smile  smile 


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
_hunter
Дата 10.8.2006, 19:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98



код таки лучше показать...
+ используй ExtractFilePath/ExtractFileName


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Matematik
Дата 10.8.2006, 19:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50



Путь к файлу без последнего слеша
ExtractFileDir()
PM MAIL WWW ICQ   Вверх
Snowy
Дата 10.8.2006, 19:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484



Цитата(RooR @  10.8.2006,  18:49 Найти цитируемый пост)
думаю всё это можно сделать строк в 10 кода!
10 - это много.

Цитата(RooR @  10.8.2006,  18:49 Найти цитируемый пост)
т.е. разделить на две строки, в первой стркое путь к файлу(без последнего слеша
ExtractFileDir

Цитата(RooR @  10.8.2006,  18:49 Найти цитируемый пост)
вылетает ошибка 
Какая? 

Цитата(RooR @  10.8.2006,  18:49 Найти цитируемый пост)
наполовину русскими буквами на половину английскими,
Русские, английские, китайские - пофигу.
PM MAIL   Вверх
Palladin
Дата 10.8.2006, 21:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17



Хм.. можно чуть поподробнее по поводу ExtractFileDir(), ExtractFileName()?? я так понял что мы узнаём путь к файлу с помощью OpenDialog-a т.е.
Код

...........
var
p,i:string;
.......
begin
 opendialog1.execute;
 if opendialog1.execute then 
  begin 
   p:=extractfiledir(opendialog1.filename);
   i:=extractfilename(opendialog1.filename);
  end;
.................
end;


Я правильно понял??? smile 


P.S.2Matematik, не критика но всёже, доработай свою программу исходник которой ты мне давал, там поиск кривой, покрайней мере у меня smile а так программа работает отлично, респектище!!! smile 

Это сообщение отредактировал(а) RooR - 10.8.2006, 21:38


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
Fedia
Дата 10.8.2006, 22:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

Репутация: 8
Всего: 13



Код

 opendialog1.execute;    
 if opendialog1.execute then 

Два раза вызывать opendialog1.execute ни к чему. Просто:
Код

 if opendialog1.execute then 


И если:
Цитата(RooR @  10.8.2006,  18:49 Найти цитируемый пост)
в первой стркое путь к файлу(без последнего слеша)
, то
Код

p:=extractfiledir(opendialog1.filename);
SetLength(p, Length(p)-1);



--------------------
Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…
PM MAIL ICQ   Вверх
Palladin
Дата 11.8.2006, 01:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17



Цитата(Fedia @  10.8.2006,  22:56 Найти цитируемый пост)

И если: в первой стркое путь к файлу(без последнего слеша), то


не ты не так понял, мне ненужно искать путь без последнего слеша, мне надо так:
допустим путь:
E:\Games\Vingrad.exe 
тогда
в переменную p нужно занести E:\Games, а в переменную i Vingrad.exe , вообщем спасибо всё заработало, в каторый раз 

РЕСПЕКТ ВИНГРАДОВЦЫ smile 


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
Fedia
Дата 11.8.2006, 02:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

Репутация: 8
Всего: 13



Цитата(RooR @  11.8.2006,  01:30 Найти цитируемый пост)
E:\Games\Vingrad.exe 
тогда
в переменную p нужно занести E:\Games 

Именно это в примере и реализовано. Что я не так понял ?



--------------------
Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0900 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.