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

    xanter New Member

    Joined:
    22 Dec 2009
    Messages:
    27
    Likes Received:
    0
    Reputations:
    0
    помогите по вопросу, есть Edit1 в нем строка вида 9875463149783485 18 2087 754
    как мне распарсить ее на вид чтобы передать в пост запрос

    data.Add('number1=9875463149783485');
    data.Add('number2=18');
    data.Add('number3=2087');
    data.Add('number4=754);

    чтобы в едит засунуть любую строку подобного вида?

    можно как то но тут для двух параметров ... но тут разделитель : а там еще и пробел а мне нужно для 4 параметров
    Copy(Edit1.Text,1,Pos(':',Edit1.Text)-1);
    StrToInt(Copy(Edit1.Text,Pos(':',Edit1.Text)+1,Length(Edit1.Text)));
     
  2. patcher

    patcher Banned

    Joined:
    15 Dec 2009
    Messages:
    190
    Likes Received:
    37
    Reputations:
    10
    я вот смотрю и думаю: как человек собирается писать программы с использование HTTP-протокола, если он не может выделить из строчки слова, разделенные пробелом?! боюсь соврать, но я такие задачи еще вроде в 7-ом классе решал.
     
    1 person likes this.
  3. ALeXX&7

    ALeXX&7 New Member

    Joined:
    4 Oct 2010
    Messages:
    50
    Likes Received:
    1
    Reputations:
    0
    Всем здравствуйте! интересует вопрос, возможно ли связать кнопку на php и кнопку на делфи, чтоб but1 на делфе была идентична кнопке на php? если возможно, то где "капать"?
     
  4. patcher

    patcher Banned

    Joined:
    15 Dec 2009
    Messages:
    190
    Likes Received:
    37
    Reputations:
    10
    с функциями и процедурами для работы со строками знаком? pos, delete, copy - эти слова о чем-нибудь говорят?
     
  5. AGIMgal

    AGIMgal New Member

    Joined:
    9 Jun 2010
    Messages:
    66
    Likes Received:
    0
    Reputations:
    0
    xanter,

    Code:
    i:integer;
    s:string;
    a:array [1..4] of string;
    begin
    for i:=1 to 4 do 
    begin 
    a[i]:=copy(s,1,pos(s,' ')-1);//возможно гдето единица лишняя
    delete(s,1,pos(s,' ')-1);//лень считать и проверять, сам там если что
    end;
    end. 
    
    теперь мой вопрос.
    создал обьект, создал ему свойства(коры прямоугольника x1,x2,y1,y2 ), мне нужно написать процедуру проверки точки на пренодлежность облости прямоугольника. так вот:как обратится к этим свойствам? обратится к свойстам обьекта получается, но у меня их 2, и мне надо, чтобы каждый был у себя.Какбы так обратится, чтобы функция работала именно с нужными мне свойстами. фух, надеюсь ктото поймёт, что мне нужно....
    P.S. написать код было проще)
     
  6. Isaev

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

    Joined:
    25 Jul 2007
    Messages:
    120
    Likes Received:
    19
    Reputations:
    6
    Искренне верю, что ты сам понимаешь, что тебе нужно :)
    Прочитай ещё раз и поправь свою мысль
     
  7. AGIMgal

    AGIMgal New Member

    Joined:
    9 Jun 2010
    Messages:
    66
    Likes Received:
    0
    Reputations:
    0
    Code:
    function Trectangle.test(x,y:integer):boolean ;
    
    begin
    if (x>f.x1)and(x<f.x2) then result:=true;
    end;
    вот, мне нужно не к f.x1 обращатся а к тому свойсву, что записано для обьекта в целом.
    попробовал так
    Code:
    f.Trectangle.x1 
    невышло
     
  8. Isaev

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

    Joined:
    25 Jul 2007
    Messages:
    120
    Likes Received:
    19
    Reputations:
    6
    Это зависит от того, как у тебя всё объявлено
    Скорее Trectangle.f.x1, и почему не просто f.x1 это то же самое по идее... если не объявлено отдельно...
    Выкладывай текст полностью
     
  9. AGIMgal

    AGIMgal New Member

    Joined:
    9 Jun 2010
    Messages:
    66
    Likes Received:
    0
    Reputations:
    0
    обьявленно.

    Code:
    Trectangle = object  
    
     public     
     x1,x2,y1,y2:integer;     
     function test(x,y:integer):boolean ;
    Code:
    var    
    f:Trectangle;  
     
  10. php_casper

    php_casper New Member

    Joined:
    6 Jun 2010
    Messages:
    64
    Likes Received:
    1
    Reputations:
    1
    У меня есть *.txt файл вида:

    Подскажите как можно все логины и пароли перевести в два масива, с паролями и логинами по порядку?
     
  11. CheatXX

    CheatXX New Member

    Joined:
    8 Jun 2009
    Messages:
    154
    Likes Received:
    2
    Reputations:
    0
    login:=Copy(s,1,Pos(':',s)-1);
    pass:=Copy(s,Pos(':',s)+1,Length(s));
     
  12. php_casper

    php_casper New Member

    Joined:
    6 Jun 2010
    Messages:
    64
    Likes Received:
    1
    Reputations:
    1
    CheatXX,
    Ошибка, во второй строчке переменная s должна быть в виде массива.
     
  13. Isaev

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

    Joined:
    25 Jul 2007
    Messages:
    120
    Likes Received:
    19
    Reputations:
    6
    Тогда вообще не ясно что ты хочешь...
    И что хотел получить строкой f.Trectangle.x1 особенно
    f.x1 правильно
     
  14. ALeXX&7

    ALeXX&7 New Member

    Joined:
    4 Oct 2010
    Messages:
    50
    Likes Received:
    1
    Reputations:
    0
    Здравствуйте. Вопрос: как сделать чтоб при нажатии кнопки к данным, введенным в edit1, присоединялись последовательно цифры от 1 до 500 и выводился результат в memo.
    Т.е., если ввел в edit1 слово: "шар", то в мемо при нажатии кнопки должен быть список:
    шар1
    шар2
    шар3
    .
    .
    .
    шар500

    Начал так:
     
  15. Hack_ERR++

    Hack_ERR++ Member

    Joined:
    13 Aug 2009
    Messages:
    41
    Likes Received:
    9
    Reputations:
    0
    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    var 
    s: string; 
    i:integer;
    begin 
    for i:=0 to 499 do
    begin
    memo1.lines.Add(s+inttostr(i)); 
    end;
    end;
    
     
  16. CheatXX

    CheatXX New Member

    Joined:
    8 Jun 2009
    Messages:
    154
    Likes Received:
    2
    Reputations:
    0
    Code:
    var s:TStringList;login,pass,s1:string;i:integer;
    begin
    s.LoadFromFile('text.txt');
    s1:=s.Text;
      for i:=0 to s.Count do
      begin
      texts[i]:=Copy(s1,1,Pos(':',s1)-1);
      texts[i]:=Copy(s1,Pos(':',s1)+1,Length(s1));
      end
    ;
     
  17. php_casper

    php_casper New Member

    Joined:
    6 Jun 2010
    Messages:
    64
    Likes Received:
    1
    Reputations:
    1
    CheatXX, при открытии файла выдает ошибку
    тут
    s.LoadFromFile('text.txt');
     
  18. МongBa†

    МongBa† Member

    Joined:
    12 May 2009
    Messages:
    66
    Likes Received:
    12
    Reputations:
    0
    php_casper
    Code:
    var s:TStringList;login,pass,s1:string;i:integer;
    begin
      s:=TStringList.Create;
      s.LoadFromFile('text.txt');
      s1:=s.Text;
      for i:=0 to s.Count do
      begin
      texts[i]:=Copy(s1,1,Pos(':',s1)-1);
      texts[i]:=Copy(s1,Pos(':',s1)+1,Length(s1));
      end;
     
  19. #Smith

    #Smith New Member

    Joined:
    20 Jun 2010
    Messages:
    96
    Likes Received:
    2
    Reputations:
    0
    Приветствую!
    А кто знает, как совсем уничтожить мьютекс, освободив все занимаемые им ресурсы?
     
  20. Isaev

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

    Joined:
    25 Jul 2007
    Messages:
    120
    Likes Received:
    19
    Reputations:
    6
    //создание
    MutexHandle := CreateMutex(nil, false, MutexName);
    //уничтожение
    CloseHandle(MutexHandle);
     
Thread Status:
Not open for further replies.