[ 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. W!z@rD

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

    Joined:
    12 Feb 2006
    Messages:
    973
    Likes Received:
    290
    Reputations:
    43
    в TImageList можно закинуть сами картинки, это как бы хранилище...
    в TImage указываешь тот TImageList в котором и находится твои изображения, потом в ImageIndex (кажется) указываешь индекс изображения...
    вот собственно говоря и все
     
    1 person likes this.
  2. -Hormold-

    -Hormold- Кто, если не ты?

    Joined:
    29 Sep 2007
    Messages:
    418
    Likes Received:
    290
    Reputations:
    44
    Нужно сделать парсер, попустим у меня в файле com.txt есть записи:
    И мне нужно сделать чтоб он их отпарсил и после:
    Помогите пожалуйста =)
     
  3. zl0y

    zl0y Banned

    Joined:
    13 Sep 2006
    Messages:
    371
    Likes Received:
    270
    Reputations:
    109
    Вобщем за тебя никто не будет писать ;)

    А код будет такой:
     
  4. -Hormold-

    -Hormold- Кто, если не ты?

    Joined:
    29 Sep 2007
    Messages:
    418
    Likes Received:
    290
    Reputations:
    44
    Жалко, неработате...
    Может ещё будут варианты? =(
     
  5. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    Я твоего вопроса не полностью понял....
     
  6. zl0y

    zl0y Banned

    Joined:
    13 Sep 2006
    Messages:
    371
    Likes Received:
    270
    Reputations:
    109
    Что не работает,конкретно какие ошибки,что пишет?
     
  7. -Hormold-

    -Hormold- Кто, если не ты?

    Joined:
    29 Sep 2007
    Messages:
    418
    Likes Received:
    290
    Reputations:
    44
    Бот не отвечает...
    На сообщения
     
  8. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    Вот состряпал функцию поиска:
    Code:
    Function slogan(BR:string):string;
    var
    tx:TstringList;//Твой файл откуда берутся слова
    i,k:integer;
    DR:string;
    begin
      tx:=TstringList.Create;
      tx.LoadFromFile('[B]res.txt[/B]');//ИМЯ/ПУТЬ файла
      For i:=0 to tx.Count-1 Do
        Begin
            k:=pos(BR,tx[i]);
            If k>0 then
              Begin
                DR:=Copy(tx[i],k+Length(BR)+1,Length(tx[i])-Length(BR)+1);
              End;
        End;
      Result:=DR;
    end;
    Как использовать:
    Привет=Здарова!
    sms:='Привет';//Тебе прислали такое сообщение
    Code:
    [COLOR=Green]if Msg=sms
    then
    begin
    ICQClient.SendMessage(UIN,slogan(sms));
    end;[/COLOR]
    
    Slogan('Сюда пишешь что у тебя до равно')

    Код протестил - рабочий!
    Удачи ;)
     
  9. -Hormold-

    -Hormold- Кто, если не ты?

    Joined:
    29 Sep 2007
    Messages:
    418
    Likes Received:
    290
    Reputations:
    44
    А что если у меня в базе несколько значений =)
    И вот, если у меня в базe "нет=..." то я пишу "не" и он определяет его как "нет".
    Как это исправить?
     
    #1349 -Hormold-, 22 Apr 2008
    Last edited: 22 Apr 2008
    1 person likes this.
  10. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    А ты сам немного можешь подумать?
    Или хоть кусок кода выложить?
    ---------------
    Вот идея, немного усовершенствуй вышеизложенную функцию и будет тебе счастье:
    Можно так я думаю:
    (не,нет,не-а)=(.......)
     
  11. KIR@PRO

    KIR@PRO from Exception

    Joined:
    26 Dec 2007
    Messages:
    826
    Likes Received:
    291
    Reputations:
    359
    возможно ли програмно подключать/отключать соединение по локальной сети + менять ip програмно... возможно? если да то дайте пжлста исходник.....
     
    _________________________
  12. GSM™

    GSM™ Elder - Старейшина

    Joined:
    2 Nov 2007
    Messages:
    221
    Likes Received:
    31
    Reputations:
    6
    Помогите разобрать-

    Как это можно скомпилировать?
     
  13. KindEcstasy

    KindEcstasy Banned

    Joined:
    30 Sep 2006
    Messages:
    105
    Likes Received:
    64
    Reputations:
    54
    KIR@PRO
    SetAdapterIpAddress - функция недокументированна, экспорт из kernel32.dll. Ищи в гугле!

    GSM™
    Не компилируеться? Как ругается?
     
    #1353 KindEcstasy, 22 Apr 2008
    Last edited: 22 Apr 2008
    1 person likes this.
  14. n0153r

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

    Joined:
    19 Jun 2007
    Messages:
    260
    Likes Received:
    92
    Reputations:
    11
    Как выполнить команду cmd из под делифи через WinExec();
    Немогу спомнить с каким ключом выполнять :(
    Спомнил:)
    Кому интересно : winexec('cmd /k "ipconfig /all"',1);
     
    #1354 n0153r, 22 Apr 2008
    Last edited: 22 Apr 2008
  15. ToniKapuchon

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

    Joined:
    26 Feb 2006
    Messages:
    153
    Likes Received:
    45
    Reputations:
    -1
    как реализовать такого вида справку:
    сбоку наряду с кнопкой макс, мин и закрыть будет вопросик!
    при нажатии на вопросик и наведение на определённую область программы выскакивает рядом с курсором справочка!!
    Дайте где почитать, а то не могу сформулировать вопрос для гугла!!
     
  16. ToniKapuchon

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

    Joined:
    26 Feb 2006
    Messages:
    153
    Likes Received:
    45
    Reputations:
    -1
    winexec('cmd.exe /K', SW_SHOW); )))
     
  17. kair

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

    Joined:
    12 Oct 2006
    Messages:
    146
    Likes Received:
    83
    Reputations:
    -4
    http://www.itl.rtu.lv/art/new/index.php?go=coding.php
    ну вообщем кому нужны 3д движки можно взять по этому адресу
    P.S. может кому пригодится
     
  18. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    Вот:
    http://forum.codenet.ru/showthread.php?threadid=32464

    http://www.delphisources.ru/forum/showthread.php?p=13854

     
    4 people like this.
  19. Dr.KoD

    Dr.KoD Elder - Старейшина

    Joined:
    1 Mar 2008
    Messages:
    68
    Likes Received:
    22
    Reputations:
    1
    gsm™ а что у тебя не получается в этом коде?, где ошибку выдает?
     
  20. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    Сделай так:
    У многих компонентов есть свойство hint, туда вписываешь подсказку,при наведении на объект она вылезает(при showhint:=true)
    так вот
    Впиши в них подсказку, и при нажатии на "?" свойство ShowHint меняется на true и все(Если я тебя конечно правильно понял:))
     
    1 person likes this.
Thread Status:
Not open for further replies.