-
Постов
203 -
Зарегистрирован
-
Посещение
-
Победитель дней
1
Весь контент HyperZen
-
Обнаружил одну странность (Delphi 10 Seattle update 1), если использовать одну кнопку в диалоге, то по модальному результату mrYes, нет срабатывания процедуры. Стоит добавить вторую кнопку, все начинает работать как надо. Почему так? MessageDlg('Выйти из программы?', TMsgDlgType.mtInformation, [TMsgDlgBtn.mbYes], 0, procedure(const AResult: TModalResult) begin case AResult of mrYes: Close; end; end);
-
Сам столкнулся с этой проблемой, пока не установил хотфикс, указанный выше, тормоза не исчезли.
-
Да, работает! Большое спасибо! У меня ошибка была - использовал FMX.Helpers.Android заменил на новую Android.Helpers и поправил варнинги. Все заработало. (надо разбираться сначала, прежде, чем тему быстрее на форуме постить))
-
Нет, к сожалению. Это было первое, что я попробовал
-
Добрый день! Сабж, собственно, все примеры, приведенные в интернете, не работают под Delphi Seattle. Кто-нибудь решал данную задачу?
-
я так понял он только для update 1? А поделиться этим хотфиксом можете?
-
При использовании данного примера вываливается целая куча ошибок. Кто может помочь? [dcc32 Error] uMain.pas(38): E2238 Default value required for 'aFont' [dcc32 Error] uMain.pas(81): E2076 This form of method call only allowed for class methods or constructor (TTextLayout.BeginUpdate) [dcc32 Error] uMain.pas(83): E2233 Property 'Text' inaccessible here [dcc32 Error] uMain.pas(84): E2233 Property 'MaxSize' inaccessible here [dcc32 Error] uMain.pas(85): E2233 Property 'WordWrap' inaccessible here [dcc32 Error] uMain.pas(86): E2233 Property 'Font' inaccessible here [dcc32 Error] uMain.pas(87): E2233 Property 'HorizontalAlign' inaccessible here [dcc32 Error] uMain.pas(88): E2233 Property 'VerticalAlign' inaccessible here [dcc32 Error] uMain.pas(90): E2076 This form of method call only allowed for class methods or constructor (TTextLayout.EndUpdate) [dcc32 Error] uMain.pas(92): E2233 Property 'Height' inaccessible here
-
Хотелось бы получать необходимую информацию с сайта (дата, номер цитаты, текст) одной регуляркой, как и в примере выше...
-
Добрый день! При парсинге сайта (bash.im) и при использовании компонента TRegExpr и компиляции программы под Windows все работает нормально: procedure TForm1.Button22Click(Sender: TObject); var s: string; regexpr: TRegExpr; ss: TStringStream; begin ss := TStringStream.Create('', TEncoding.GetEncoding(1251)); try IdHTTP1.Get('http://bash.im/', ss); ss.Position := 0; s := ss.DataString; finally ss.Free; end; regexpr := TRegExpr.Create; try regexpr.Expression := 'class="date">(.*?)<.*?class="id">(.*?)<.*?class="text">(.*?)<'; if regexpr.Exec(s) then repeat mmoLetters.Lines.Add(regexpr.Match[1]); mmoLetters.Lines.Add(regexpr.Match[2]); mmoLetters.Lines.Add(regexpr.Match[3]); until not regexpr.ExecNext; finally regexpr.Free end; end; Но при компиляции приложения под Android, выдает ошибку... Использую RegularExpressions из состава Delphi 10 Seattle: uses System.RegularExpressions ... procedure TfrmMain.ParsingBashNew(URLToPars: string); var Matches: TMatchCollection; RegExpr: TRegEx; i: Integer; RegularExpressString : string; begin mmoNew.Lines.Clear; HTMLText := IdHTTP1.Get(URLToPars); RegularExpressString := 'class="date">(.*?)<.*?class="id">(.*?)<.*?class="text">(.*?)<'; RegExpr := TRegEx.Create(RegularExpressString, [roIgnoreCase, roMultiLine]); Matches := RegExpr.Matches(HTMLText); if Matches.Count > 0 then begin mmoNew.BeginUpdate; for i := 0 to Matches.Count -1 do begin mmoNew.Lines.Add(Matches.Item[i].Groups[1].Value); mmoNew.Lines.Add(Matches.Item[i].Groups[2].Value); mmoNew.Lines.Add(Matches.Item[i].Groups[3].Value); mmoNew.Lines.Add('=============================='); end; mmoNew.EndUpdate; end; end; То же самое регулярное выражение на работает. В чем может быть загвоздка? (если отбросить последнюю составляющую регулярки - '.*?class="text">(.*?)<' - тоже все работает!)
-
Есть ли у кого такой пример?
-
Я так понял дополнительный модуль для работы с регулярными выражениями в новых версиях Delphi не нужен? Seattle установил совсем недавно.
-
Столкнулся с проблемой при использовании компонента TRegExpr : при компиляции приложения под Windows все прекрасно работает. При компиляции под Android - 2 ошибки (Delphi 10 Seattle): [DCC Error] RegExpr.pas(105): E2003 Undeclared identifier: 'WideString' [DCC Fatal Error] RegExpr.pas(634): F2613 Unit 'Windows' not found. Как их обойти?
-
Еще один вопрос: как автоматически изменять высоту TListVewItem'а относительно введенного в него текста?