И explore и open приведут к одинаковым результатам, но поскольку функция используется именно для того, чтобы открыть папку, то целесообразней будет использовать именно explore. Так код будет проще понять.
Хочу научиться програмировать в делфи. Купил книгу В.Пестрикова А. Маслобоева "Delphi на примерах". Какая щас самая нормальная среда програмирование??И если можно ссылочку на скачку)
Вообще для начала мне кажеться стоит скачать TurboDelphi (она бесплатная), а потом уже сам определишся. А по поводу книг... Я не считая занятий в институте учился по книге Фленова "Библия Delphi" ИМХО лучше с неё начинать, но опять же повторюсь каждому своё...
Вечер добрый всем. Люди, подскажите как осуществить поиск и копирование папки со всем содержимым на съемный носитель. Подчеркиваю, нужно именно папки, а не файлов. Заранее благодарю всех.
Всем привет, простите уж за тупые вопросы, но никто не подскажет где найти русскоязычное описание компонентов glscene?
eLWAux спасибо, еще если сможешь подсказать всякую полезную интернет-литературу по этому движку , ну малоли там когда попадется, сообщи мне пожалуйста
Code: // просто проверка на наличие If GetFileAttributesA(pchar(path)) = DWORD(-1) then begin // файла нету TFileStream.Create(path, fmCreate); end; ... hfile := _lcreat(pfile,0); If (hfile <> DWORD(-1)) then CloseHandle(hfile); // успешно ... try TFileStream.Create(path, fmCreate); except // ошибочка end;
люди плизз дайте ссылку на скачку делфи. Их так много версий, незнаю какую выбрать( мне только чтобы одним файлом.В гугле искал так там они на депозит залилти, или на смсфайл(тому кто даст норм ссылку поставлю +
А здесь Delphi 2009: http://qiq.ru/29/11/2008/programs_soft/60587/delphi_2009_i_c_builder_2009__lekarstvo.html Сам её щас качаю...
подскажите. Code: procedure TForm1.button1Click(Sender: TObject); var Index: Integer; Temp: TStringList; begin Temp:= TStringList.Create(); for Index:= 0 to Bana.Count - 1 do begin if (Bana[Index] <> '') and (Temp.IndexOf(Bana[Index]) = -1) then Temp.Add(Bana[Index]) end; try begin Temp.SaveToFile... и при нажатии на кнопку выходит ошибка: Project raised exception class EAccessViolation with message... и становиться на строку for Index:= 0 to Bana.Count - 1 do в чем проблема?
Когда делаю такой запрос Code: Memo1.Text:= idHTTP1.Get('http://mail.ru'); норм сорц грузит, а если Code: Memo1.Text:= idHTTP1.Get('http://my.mail.ru/mail/wasja.lllw/'); Вылезает ошибка 302, что сделать чтобы сорц тоже грузило?
2boomba мож Bana не инициализирован? Оо добавь if Assigned(Bana) then перед циклом Code: if Assigned(Bana) then for Index:= 0 to Bana.Count - 1 do и посмотри что получиться.
Есть стринг такого вида str:='c:\catalog\number1\program.exe'; Как вырезать слово program.exe и вставить в другую переменную?(делфи)