[ 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. pcacer

    pcacer New Member

    Joined:
    29 Mar 2012
    Messages:
    12
    Likes Received:
    1
    Reputations:
    0
    Всем привет. Подскажите кто-нибудь как сделать, чтобы по мере ввода данных в textbox, они отображались в datagridview, то есть в тот момент когда я ввожу какую-нибудь букву, эта буква должна отобразиться в таблице! У меня получилось сделать это для первого символа, но дальше почему то не отображается :confused:
     
  2. lolzR

    lolzR New Member

    Joined:
    27 Mar 2012
    Messages:
    10
    Likes Received:
    0
    Reputations:
    0
    Delphi 7. Помогите.

    Возможно ли на дельфи осуществить такое:
    Допустим у меня 2 формы.
    И Form1 открывается только в том случае, если в параметрах запуска стоит... ну допустим, тот же /magickey

    Например. C:\Users\User\Desktop\MYPROGRAMM.exe \magickey (ярлык).

    В противном случае (если такой параметр не прописан) будет открываться Form2

    Т.е, условие на параметр.

    if (код, которого я не знаю). then
    Form1.Visible :=true;
    Form2.Visible :=false;
    else
    Form1.Visible :=false;
    Form2.Visible :=true;

    Помогите.
     
    #9022 lolzR, 29 Mar 2012
    Last edited: 29 Mar 2012
  3. shadowrun

    shadowrun Banned

    Joined:
    29 Aug 2010
    Messages:
    842
    Likes Received:
    170
    Reputations:
    84
    if ParamStr(1) = \magickey ...
     
  4. shadowrun

    shadowrun Banned

    Joined:
    29 Aug 2010
    Messages:
    842
    Likes Received:
    170
    Reputations:
    84
    В событии Edit1 OnKeyPress:
    Code:
    StringGrid1.Cells[1,1] := Edit1.Text;
     
  5. pcacer

    pcacer New Member

    Joined:
    29 Mar 2012
    Messages:
    12
    Likes Received:
    1
    Reputations:
    0
    а в C# Cells это какой?
     
  6. mironich

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

    Joined:
    27 Feb 2011
    Messages:
    733
    Likes Received:
    73
    Reputations:
    19
    Ситуация такая, есть класс, один, есть второй, второй будет в разных программах иметь разные методы и свойства, как зделать чтобы первый класс мог меня свойства второго класса не зная его определения..??
     
  7. mironich

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

    Joined:
    27 Feb 2011
    Messages:
    733
    Likes Received:
    73
    Reputations:
    19
    Code:
    var
    
    tmp: string;
    begin
      tmp := Memo1.Text;
      Delete(tmp, 1, 
       Pos('Символ', Memo1.Text) + Length('Символ'));
     Memo1.Text := tmp; 
    
    end;
     
    1 person likes this.
  8. weInc

    weInc New Member

    Joined:
    29 Mar 2012
    Messages:
    40
    Likes Received:
    3
    Reputations:
    0
    Urlencode в utf-8 1251 и т.п

    [ Вот тут смотри ]
     
    1 person likes this.
  9. triblekill

    triblekill Member

    Joined:
    21 Aug 2011
    Messages:
    351
    Likes Received:
    94
    Reputations:
    1
    Минимальное/Максимальное значение всех символов

    Привет ачат подскажите пожалуйста как вычислить минимальное и максимальное значение всех символов например мин:1 макс: *

    PHP:
    procedure TForm1.Button1Click(SenderTObject); begin Showmessage('мин значениие '+inttostr(Low(S))); Showmessage('макс значениие '+inttostr(High(S))); endend.
    так пишет что минимальное и максимальное ноль мб чтото неправильно
     
  10. Metal-Core

    Metal-Core Member

    Joined:
    20 Sep 2011
    Messages:
    223
    Likes Received:
    21
    Reputations:
    0
    i:=length(edit1.text);
    переменой типа integer будет количество символов.
     
    1 person likes this.
  11. triblekill

    triblekill Member

    Joined:
    21 Aug 2011
    Messages:
    351
    Likes Received:
    94
    Reputations:
    1
    А зачем мне колво символов ? Мне нужно минимальное и максимальное значение всех символов как от a до & например
     
  12. alexey-m

    alexey-m Elder - Старейшина

    Joined:
    15 Jul 2009
    Messages:
    518
    Likes Received:
    100
    Reputations:
    37
    triblekill, думаю это решит твою проблему High и Low
     
  13. xophet

    xophet Member

    Joined:
    16 Apr 2011
    Messages:
    617
    Likes Received:
    49
    Reputations:
    5
    что за бред сивой кобылы????
     
    2 people like this.
  14. mironich

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

    Joined:
    27 Feb 2011
    Messages:
    733
    Likes Received:
    73
    Reputations:
    19
    Есть класс наследник от TcustomGroupBox при кидании компонента основного на этом классе в Caption пишет надпись с именем компонента, как бы ее убрать в конструкторе не получается она ставиться (надпись) после создания гдебы этот момент отловить??
     
  15. \\ChaOs//

    \\ChaOs// Member

    Joined:
    26 Feb 2009
    Messages:
    102
    Likes Received:
    26
    Reputations:
    5

    Эмм, странные желания. Что именно то нужно, проверить на равенство строки, или найти подстроку, или вообще найти совпадение в отдельных "словах" в строке?

    Code:
     if kol = '1234' then ... // равенство строк
    
    Split(' ', kol, arr) // arr: TStringList
    for i:=0 to arr.Count-1 do
    begin
       if arr[i] = '1234' then ... // Совпадение со "словом" в строке
    end
    
    Код процедуры Split будет таким:

    Code:
    procedure Split
        (const Delimiter: Char;
         Input: string;
         const Strings: TStrings) ;
     begin
        Assert(Assigned(Strings)) ;
        Strings.Clear;
        Strings.Delimiter := Delimiter;
        Strings.DelimitedText := Input;
     end;
     
    #9035 \\ChaOs//, 3 Apr 2012
    Last edited: 3 Apr 2012
  16. Timon132009

    Timon132009 Member

    Joined:
    7 Jun 2009
    Messages:
    137
    Likes Received:
    19
    Reputations:
    0
    В indy при отправке запроса на HTTPS, заголовок host имеет следующий вид: host:site.com:443
    Как мне убрать 443 порт из заголовка?
     
  17. xophet

    xophet Member

    Joined:
    16 Apr 2011
    Messages:
    617
    Likes Received:
    49
    Reputations:
    5
    Можно проверять Pos('1234',s) и проверять s[Pos('1234',s)+Length('1234')] in a;
    где a-множество разделителей (типа: пробел, подчерк и т.д.)
    P.S. ну и ясен-пень нужно проверять, чтобы Pos('1234',s)+Length('1234') не вылазило за размерность s
     
  18. mironich

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

    Joined:
    27 Feb 2011
    Messages:
    733
    Likes Received:
    73
    Reputations:
    19
    Править в сорцах, я так делал.
     
  19. xophet

    xophet Member

    Joined:
    16 Apr 2011
    Messages:
    617
    Likes Received:
    49
    Reputations:
    5
    Обновить Indy, не?
     
  20. lolzR

    lolzR New Member

    Joined:
    27 Mar 2012
    Messages:
    10
    Likes Received:
    0
    Reputations:
    0
    Знаю, вопрос глупый. Но я никак не могу вспомнить.
    Как сделать так, чтобы программа записывала имя вашего ексешника в код. (Не знаю, как сформулировать).

    Вообщем пример (создание .bat):

    var f:TextFile;

    AssignFile(f,'self-delete.bat');
    ReWrite(f);

    WriteLn(f,'@echo off');
    WriteLn(f,'del Тут имя экзешника, я помню.. код был типа +ApplicationName что-то такое.exe');

    WriteLn(f,'del "%0" >nul');

    CloseFile(f);

    Помогите вспомнить код. ;O
     
Thread Status:
Not open for further replies.