[ 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.
Page 360 of 489
  1. Isaev

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

    Joined:
    25 Jul 2007
    Messages:
    120
    Likes Received:
    19
    Reputations:
    6
    Может стоит написать какая ошибка? ;)
     
    #7181 Isaev, 8 Nov 2010
  2. Isaev

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

    Joined:
    25 Jul 2007
    Messages:
    120
    Likes Received:
    19
    Reputations:
    6
    Code:
    Function Trans(N:Cardinal):Cardinal;
Var
  R,B,P:Integer;
Begin
  B:=N;
  R:=0;P:=1;
  Repeat
    Inc(R);
    B:=B Div 10;
    P:=10*P;
  Until B=0;
  P:=P Div 10;
  B:=N Div P;
  P:=(B+1)*P+N Mod P;
  B:=P Div 10;
  R:=P Mod 10+1;
  If R=10 Then B:=B*10;
  Result:=B*10+R;
End;
     
    #7182 Isaev, 8 Nov 2010
  3. php_casper

    php_casper New Member

    Joined:
    6 Jun 2010
    Messages:
    64
    Likes Received:
    1
    Reputations:
    1
    Как установить данный компонент? https://forum.antichat.ru/showthread.php?p=2423387#post2423387

    Залил все в папку ЛИБ в делфи, пропытался инсталировать, но при компиляции компонента выдало ошибку в contains,
    Компонент есть на панели, но не работают почти все функции описанные в VkComp.pas
    в євентсе только пару функций.
     
    #7183 php_casper, 9 Nov 2010
  4. Isaev

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

    Joined:
    25 Jul 2007
    Messages:
    120
    Likes Received:
    19
    Reputations:
    6
    Ну а тут то ты для чего спросил? Тема про компонент там, кто как не автор тебе лучше ответит?
     
    #7184 Isaev, 10 Nov 2010
  5. Voland-791

    Voland-791 Member

    Joined:
    1 May 2009
    Messages:
    163
    Likes Received:
    13
    Reputations:
    5
    Каким образом создается процедура обработки Onclick при создании динамического Button с нужным кодом ?
     
    #7185 Voland-791, 10 Nov 2010
  6. Nelz.

    Nelz. Member

    Joined:
    2 Aug 2010
    Messages:
    151
    Likes Received:
    7
    Reputations:
    0
    _http://www.realcoding.net/article/view/290 вам гуглит трудно?
     
    #7186 Nelz., 10 Nov 2010
  7. Voland-791

    Voland-791 Member

    Joined:
    1 May 2009
    Messages:
    163
    Likes Received:
    13
    Reputations:
    5
    Нужно примерно так: в уже созданый динамический (Button1) чтобы при его клике в пустой Button2 в клик добавлялась нужная процедура..
     
    #7187 Voland-791, 10 Nov 2010
  8. alexey-m

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

    Joined:
    15 Jul 2009
    Messages:
    518
    Likes Received:
    100
    Reputations:
    37
    Voland-791, cоздаешь процедуру-обработчик вида:
    Code:
    procedure BtmClick(Sender: TObject);
TButton(Sender).Caption:= 'bla-bla-bla';
...
end;
    В динамически созданной кнопке обработчик привязываешь так:
    Code:
    button1.OnClick:= @BtmClick;
     
    #7188 alexey-m, 10 Nov 2010
  9. RAINUR

    RAINUR New Member

    Joined:
    24 May 2010
    Messages:
    151
    Likes Received:
    0
    Reputations:
    0
    Как считывать данные с файла на TurboPascale, пока не будет конец??
    Функцию eof не предлагать .. Что-то слышал про 0 байт, может кто объяснит. .
     
    #7189 RAINUR, 10 Nov 2010
  10. Isaev

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

    Joined:
    25 Jul 2007
    Messages:
    120
    Likes Received:
    19
    Reputations:
    6
    А чем тебе EOF не нравится? :)
    отключай обработку ошибок {$I-} считывай байт, потом включай {$I+} и проверяй IOResult
     
    #7190 Isaev, 10 Nov 2010
  11. idm_hello

    idm_hello New Member

    Joined:
    5 May 2010
    Messages:
    8
    Likes Received:
    0
    Reputations:
    0
    Делаю лабу:

    Записать в файл таблицу умножения чисел от 1 до N, где N от 0 до N кот по заданной таблице определяет произведение 2-ух чисел.

    Я хочу что бы было 2 Memo. В одно Memo после нажатия кнопки вываливаются рандомные числа, а после нажатия другой кнопки в другом Memo уже эти числа умножаются.

    Наполнение Memo1 числами я сделал:

    Code:
     procedure TForm1.Button1Click(Sender: TObject);
const
N = 100;
var
m: array [1..N] of integer;
i: integer;
S: String;
Begin
S := '';
for i:=1 to N do
begin
m[i] := Random(m[i]);
S := IntToStr(m[i]);
memo1.Lines.Add(S);
end;
end;
end.
    А как теперь по нажатию другой кнопки сделать что бы эти числа умножались друг на друга?)
     
    #7191 idm_hello, 10 Nov 2010
  12. beBoss

    beBoss New Member

    Joined:
    29 Sep 2010
    Messages:
    21
    Likes Received:
    1
    Reputations:
    0
    how to parse with delphi those 10 matches:
    HTML:
    <tr class="nowPlaying">
	<td class="programaMatch">
		<a href="statistics_team.php?champ=5&season=50&team=113">Стоук Сити</a> - <a href="statistics_team.php?champ=5&season=50&team=193">Бирмингам</a>
	</td>
	<td class="programaDate">
		09.11.2010
	<td>
	<td class="programaTime">
		21:45
	</td>
	<td class="programaResult">
		<a href="statistics_game.php?champ=5&season=50&game=11771">3 : 2</a>
	</td>
</tr>

<tr class="nowPlaying">
	<td class="programaMatch">
		<a href="statistics_team.php?champ=5&season=50&team=115">Тотнъм</a> - <a href="statistics_team.php?champ=5&season=50&team=114">Съндърланд</a>
	</td>
	<td class="programaDate">
		09.11.2010
	</td>
	<td class="programaTime">
		22:00
	</td>
	<td class="programaResult">
		<a href="statistics_game.php?champ=5&season=50&game=11772">1 : 1</a>
	</td>
</tr>

<tr class="nowPlaying">
	<td class="programaMatch">
		<a href="statistics_team.php?champ=5&season=50&team=117">Уест Хам</a> - <a href="statistics_team.php?champ=5&season=50&team=116">Уест Бромич</a>
	</td>
	<td class="programaDate">
		09.11.2010
	</td>
	<td class="programaTime">
		22:00
	</td>
	<td class="programaResult">
		<a href="statistics_game.php?champ=5&season=50&game=11773">- : -</a>
	</td>
</tr>

<tr class="nowPlaying">
	<td class="programaMatch">
		<a href="statistics_team.php?champ=5&season=50&team=118">Уигън</a> - <a href="statistics_team.php?champ=5&season=50&team=106">Ливърпул</a>
	</td>
	<td class="programaDate">
		10.11.2010
	</td>
	<td class="programaTime">
		21:45
	</td>
	<td class="programaResult">
		<a href="statistics_game.php?champ=5&season=50&game=11776">- : -</a>
	</td>
</tr>

<tr class="nowPlaying">
	<td class="programaMatch">
		<a href="statistics_team.php?champ=5&season=50&team=121">Челси</a> - <a href="statistics_team.php?champ=5&season=50&team=119">Фулъм</a>
	</td>
	<td class="programaDate">
		10.11.2010
	</td>
	<td class="programaTime">
		21:45
	</td>
	<td class="programaResult">
		<a href="statistics_game.php?champ=5&season=50&game=11775">- : -</a>
	</td>
</tr>

<tr class="nowPlaying">
	<td class="programaMatch">
		<a href="statistics_team.php?champ=5&season=50&team=100">Астън Вила</a> - <a href="statistics_team.php?champ=5&season=50&team=337">Блекпул</a>
	</td>
	<td class="programaDate">
		10.11.2010
	</td>
	<td class="programaTime">
		21:45
	</td>
	<td class="programaResult">
		<a href="statistics_game.php?champ=5&season=50&game=11774">- : -</a>
	</td>
</tr>

<tr class="nowPlaying">
	<td class="programaMatch">
		<a href="statistics_team.php?champ=5&season=50&team=110">Нюкасъл</a> - <a href="statistics_team.php?champ=5&season=50&team=102">Блекбърн</a>
	</td>
	<td class="programaDate">
		10.11.2010
	</td>
	<td class="programaTime">
		21:45
	</td>
	<td class="programaResult">
		<a href="statistics_game.php?champ=5&season=50&game=11780">- : -</a>
	</td>
</tr>

<tr class="nowPlaying">
	<td class="programaMatch">
		<a href="statistics_team.php?champ=5&season=50&team=105">Евертън</a> - <a href="statistics_team.php?champ=5&season=50&team=103">Болтън</a>
	</td>
	<td class="programaDate">
		10.11.2010
	</td>
	<td class="programaTime">
		22:00
	</td>
	<td class="programaResult">
		<a href="statistics_game.php?champ=5&season=50&game=11777">- : -</a>
	</td>
</tr>

<tr class="nowPlaying">
	<td class="programaMatch">
		<a href="statistics_team.php?champ=5&season=50&team=107">Манчестър Сити</a> - <a href="statistics_team.php?champ=5&season=50&team=108">Манчестър Юнайтед</a>
	</td>
	<td class="programaDate">
		10.11.2010
	</td>
	<td class="programaTime">
		22:00
	</td>
	<td class="programaResult">
		<a href="statistics_game.php?champ=5&season=50&game=11778">- : -</a>
	</td>
</tr>

<tr class="nowPlaying">
	<td class="programaMatch">
		<a href="statistics_team.php?champ=5&season=50&team=192">Уулвърхамптън</a> - <a href="statistics_team.php?champ=5&season=50&team=99">Арсенал</a>
	</td>
	<td class="programaDate">
		10.11.2010
	</td>
	<td class="programaTime">
		22:00
	</td>
	<td class="programaResult">
		<a href="statistics_game.php?champ=5&season=50&game=11779">- : -</a>
	</td>
</tr>
     
    #7192 beBoss, 10 Nov 2010
  13. Isaev

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

    Joined:
    25 Jul 2007
    Messages:
    120
    Likes Received:
    19
    Reputations:
    6
    Ну так же, как и заполнял
    Code:
    For A:=1 To N Do
  For B:=1 To N Do
    Begin
      K:=Mas[A]*Mas[B];
      Memo2.Lines.Append(IntToStr(A)+'x'+IntToStr(B)+'='+IntToStr(K));
    End;
     
    #7193 Isaev, 10 Nov 2010
  14. Isaev

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

    Joined:
    25 Jul 2007
    Messages:
    120
    Likes Received:
    19
    Reputations:
    6
    use for parsing component RegExpr
     
    #7194 Isaev, 10 Nov 2010
  15. beBoss

    beBoss New Member

    Joined:
    29 Sep 2010
    Messages:
    21
    Likes Received:
    1
    Reputations:
    0
    Well, I download page with indy (delphi 7) and is RegExpr works with indy ? :)
     
    #7195 beBoss, 10 Nov 2010
  16. crystalbit

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

    Joined:
    6 Jun 2008
    Messages:
    212
    Likes Received:
    88
    Reputations:
    8
    hm, you download with indy, but finally you have string/TStringList
     
    #7196 crystalbit, 10 Nov 2010
    1 person likes this.
  17. GlooK

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

    Joined:
    20 Apr 2007
    Messages:
    172
    Likes Received:
    53
    Reputations:
    10
    Translate this page TRegExpr (rus).
    Use "Analog preg_match_all" example.
     
    #7197 GlooK, 10 Nov 2010
  18. Isaev

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

    Joined:
    25 Jul 2007
    Messages:
    120
    Likes Received:
    19
    Reputations:
    6
    RegExpr works with Strings ;)
     
    #7198 Isaev, 11 Nov 2010
  19. RedFern.89

    RedFern.89 Member

    Joined:
    20 Jan 2010
    Messages:
    575
    Likes Received:
    48
    Reputations:
    0
    beBoss, use Copy, Pos. Delete, Length for parsing with strings)
     
    #7199 RedFern.89, 13 Nov 2010
  20. RAINUR

    RAINUR New Member

    Joined:
    24 May 2010
    Messages:
    151
    Likes Received:
    0
    Reputations:
    0
    А подробнее можно?:)
    В прошлом году я участвовал в районной олимпиаде по программировании и я считывал данные с файла пока не будет конец, то есть функцией eof.
    Так получилось что задача набрала 0 баллов, возможно программа для проверки задач не распознает эту функцию. . Занял я все равно 1 место, поэтому распрашивать их не стал на счет этой проблемы. .
    Если кто может, напишите ввиде кода. .
     
    #7200 RAINUR, 13 Nov 2010
(You must log in or sign up to post here.)
Page 360 of 489
Thread Status:
Not open for further replies.
Language
English (US)
    ANTICHAT ™ © 2001-2027 Antichat Kft.