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

Событие onKeyPress:
if key="код клавиши alt" then
key := #0;

 

2 Deani на обычном паскале нельзя. Тока на 32 битном можно.
Досовские и 16 битные под Win не подходят.

 

HTML:

procedure TForm1.Button1Click(Sender: TObject);
var
HTML: string;
Money: string;
R: TRegExpr;
begin
HTML:=IdHTTP1.Get('http://www.сайтец.ыы');
memo1.Text:=html;
R:= TRegExpr.Create;
try
R.Expression := '^(?im).*?</td><td title="(.*?)" class="wrap".*$';
if R.Exec(HTML) then
begin
repeat
Money:= Money + R.Match[1] + #13#10;
until not R.ExecNext;
memo2.Text:=Money;
end;
finally
R.Free;
end;
end;

выводит только 1вое найденное значение, остальные нет, в чем проблема?(

 

DiSi выглядит все правильно. Регулярка точно подходит под остальные выражения?

А хотя, вообще то надо так:
memo1.Lines.Text := Money;
а не так:
memo1.Text := Money;

 

да там идет список и у всех одинаковые теги

может есть какаето альтернатива? в 1 строке походу только 1 значение которое мне нужно достать

 

TRegExpr прекрасно работает, ничег обольше не нужно
Залей куда ни будь HTML код этой страницы, составлю тебе регулярку.

 

всем спс) разобрался
https://forum.antichat.ru/showpost.php?p=1308831&postcount=8

 

Почему если кодировать строку в md5 в Delphi и на сайте, результаты разные? :\

 

юникод? что за сайт? что за строка?

 

как из indy 10 отправлять письмо, в новой версии нет такого: SMTP.AuthenticationType:=atLogin; .
тестил через яндекс, может в нём проблема?
есть ли у кого пример рабочий?

***
проблема решена...

 

как бы телепатов нет.
Поэтому:
1. Что за сайт.
2. В чем хеш MD5 делаешь? (проверь с другими программами) самое простое в PHP.

PHP:

<? echo MD5(GET_['text']; ?>

index.php?text=124
3. может надо сделать строку MD5 и полученый результать еще MD5.
4. Может еще быть добавлена соль.

 

Как присвоить полю mеmо значение по умолчанию, отличное от названия?

 

Тоесть?
Memo1.text:='Значение';

 

А еще есть какие способы кроме простого присваивания?

 

Привет всем. Вопрос простой. Мне надо декомпилировать Дельфиновскую екзешку. Какой программой это лучше всего сделать. Если невозможно декомпилоровать, то хотя бы дизассемблировать. Однако чем ЛУЧШЕ ВСЕГО

 

подскажите как вывести в Label количество "оборотов" таймера

 

onTimer

label.caption := IntToStr(timercount);
inc(timercount); ?

 

пробовал, не помогло...

 

Поиграйся вот этим IDR (Interactive Delphi Reconstructor) -декомпилятор исполняемых файлов (EXE) и динамических библиотек (DLL), написанных на языке Delphi скачать

 

тоесть вывести сколько осталось пройти таймеру до 0 ?