[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by banned, 6 May 2007.

Thread Status:
Not open for further replies.
  1. \\ChaOs//

    \\ChaOs// Member

    Joined:
    26 Feb 2009
    Messages:
    102
    Likes Received:
    26
    Reputations:
    5
    Правильней будет shellapi.ShellExecute(0, 'explore', 'c:\windows', nil, nil, SW_SHOW);
     
  2. [n]-c0der

    [n]-c0der Member

    Joined:
    3 Feb 2009
    Messages:
    83
    Likes Received:
    24
    Reputations:
    -1
    ну а теперь обоснуй свое мнение.
     
    1 person likes this.
  3. \\ChaOs//

    \\ChaOs// Member

    Joined:
    26 Feb 2009
    Messages:
    102
    Likes Received:
    26
    Reputations:
    5
    И explore и open приведут к одинаковым результатам, но поскольку функция используется именно для того, чтобы открыть папку, то целесообразней будет использовать именно explore. Так код будет проще понять.
     
    #3703 \\ChaOs//, 6 Jul 2009
    Last edited: 6 Jul 2009
  4. zifanchuck

    zifanchuck Elder - Старейшина

    Joined:
    27 Oct 2008
    Messages:
    396
    Likes Received:
    154
    Reputations:
    3
    Хочу научиться програмировать в делфи. Купил книгу В.Пестрикова А. Маслобоева "Delphi на примерах". Какая щас самая нормальная среда програмирование??И если можно ссылочку на скачку)
     
  5. NightJack

    NightJack Elder - Старейшина

    Joined:
    28 Feb 2007
    Messages:
    16
    Likes Received:
    30
    Reputations:
    26
    Вообще для начала мне кажеться стоит скачать TurboDelphi (она бесплатная), а потом уже сам определишся. А по поводу книг... Я не считая занятий в институте учился по книге Фленова "Библия Delphi" ИМХО лучше с неё начинать, но опять же повторюсь каждому своё... :)
     
  6. W!z@rD

    W!z@rD Борец за русский язык

    Joined:
    12 Feb 2006
    Messages:
    973
    Likes Received:
    290
    Reputations:
    43
    выдержка из MSDN:
     
  7. MAESTRO

    MAESTRO New Member

    Joined:
    15 Oct 2007
    Messages:
    14
    Likes Received:
    2
    Reputations:
    0
    Вечер добрый всем. Люди, подскажите как осуществить поиск и копирование папки со всем содержимым на съемный носитель. Подчеркиваю, нужно именно папки, а не файлов. Заранее благодарю всех.
     
  8. strelok2013

    strelok2013 New Member

    Joined:
    2 Jun 2009
    Messages:
    6
    Likes Received:
    0
    Reputations:
    0
    Всем привет, простите уж за тупые вопросы, но никто не подскажет где найти русскоязычное описание компонентов glscene?
     
  9. eLWAux

    eLWAux Elder - Старейшина

    Joined:
    15 Jun 2008
    Messages:
    860
    Likes Received:
    616
    Reputations:
    211
    Русский сайт движка GLScene
    http://glscene.ru/
     
  10. strelok2013

    strelok2013 New Member

    Joined:
    2 Jun 2009
    Messages:
    6
    Likes Received:
    0
    Reputations:
    0
    eLWAux спасибо, еще если сможешь подсказать всякую полезную интернет-литературу по этому движку , ну малоли там когда попадется, сообщи мне пожалуйста
     
  11. Hellsp@wn

    Hellsp@wn Elder - Старейшина

    Joined:
    29 Apr 2007
    Messages:
    401
    Likes Received:
    153
    Reputations:
    48
    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;
    
     
    #3711 Hellsp@wn, 9 Jul 2009
    Last edited: 9 Jul 2009
    1 person likes this.
  12. zifanchuck

    zifanchuck Elder - Старейшина

    Joined:
    27 Oct 2008
    Messages:
    396
    Likes Received:
    154
    Reputations:
    3
    люди плизз дайте ссылку на скачку делфи. Их так много версий, незнаю какую выбрать( мне только чтобы одним файлом.В гугле искал так там они на депозит залилти, или на смсфайл(тому кто даст норм ссылку поставлю +
     
  13. NightJack

    NightJack Elder - Старейшина

    Joined:
    28 Feb 2007
    Messages:
    16
    Likes Received:
    30
    Reputations:
    26
    Вот ссылка на Turbo Delphi Explorer https://downloads.embarcadero.com/free/turbodelphi
     
  14. NightJack

    NightJack Elder - Старейшина

    Joined:
    28 Feb 2007
    Messages:
    16
    Likes Received:
    30
    Reputations:
    26
    А здесь Delphi 2009: http://qiq.ru/29/11/2008/programs_soft/60587/delphi_2009_i_c_builder_2009__lekarstvo.html

    Сам её щас качаю...
     
    #3714 NightJack, 9 Jul 2009
    Last edited: 9 Jul 2009
  15. boomba

    boomba New Member

    Joined:
    19 Jan 2009
    Messages:
    7
    Likes Received:
    0
    Reputations:
    0
    подскажите.
    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
    в чем проблема?
     
  16. Sin3v

    Sin3v Banned

    Joined:
    16 Jul 2008
    Messages:
    11
    Likes Received:
    95
    Reputations:
    9
    Когда делаю такой запрос
    Code:
    Memo1.Text:= idHTTP1.Get('http://mail.ru');
    норм сорц грузит, а если
    Code:
    Memo1.Text:= idHTTP1.Get('http://my.mail.ru/mail/wasja.lllw/');
    Вылезает ошибка 302, что сделать чтобы сорц тоже грузило?
     
  17. Sin3v

    Sin3v Banned

    Joined:
    16 Jul 2008
    Messages:
    11
    Likes Received:
    95
    Reputations:
    9
    Все разобрался)
    поставил
    idhttp1.HandleRedirects:=true;
     
  18. dos999

    dos999 Elder - Старейшина

    Joined:
    15 Feb 2008
    Messages:
    137
    Likes Received:
    24
    Reputations:
    0
    2boomba мож Bana не инициализирован? Оо
    добавь if Assigned(Bana) then перед циклом
    Code:
     
    if Assigned(Bana) then
      for Index:= 0 to Bana.Count - 1 do
    
    и посмотри что получиться.
     
  19. boomba

    boomba New Member

    Joined:
    19 Jan 2009
    Messages:
    7
    Likes Received:
    0
    Reputations:
    0
    спасибо. обошлось без ошибки.
     
  20. diznt

    diznt Elder - Старейшина

    Joined:
    31 Jan 2008
    Messages:
    432
    Likes Received:
    164
    Reputations:
    -19
    Есть стринг такого вида

    str:='c:\catalog\number1\program.exe';

    Как вырезать слово program.exe и вставить в другую переменную?(делфи)
     
    3 people like this.
Thread Status:
Not open for further replies.