Горизонт

АрсКодер 2 дня назад #

var

LineNumber: Integer;

CursorPosition: Integer;

LineStartPos: Integer;

begin

// Получаем позицию курсора в тексте

CursorPosition := Memo1.SelStart;

// Изначально линия начинается с нуля

LineStartPos := 0;

LineNumber := 1; // Номер строки начинаем с 1

// Пробегаем по всем строкам в Memo

while LineStartPos < CursorPosition do

begin

// Позиция следующей строки

LineStartPos := LineStartPos + Length(Memo1.Lines[LineNumber — 1]) + 1; // +1 для символа новой строки

Inc(LineNumber);

end;

// Выводим номер строки

ShowMessage('Курсор находится на строке: ' + IntToStr(LineNumber));

АрсКодер 2 дня назад #

Пример использования регулярных выражений:

delphi

КопироватьРедактировать

uses
  System.RegularExpressions, SysUtils;
 
function GetTextBetweenTags(const HTML, Tag: string): string;
var
  Regex: TRegEx;
  Match: TMatch;
begin
  Regex := TRegEx.Create(Format('<%s[^>]*>(.*?)</%s>', [Tag, Tag]), [roIgnoreCase]);
  Match := Regex.Match(HTML);
  if Match.Success then
    Result := Match.Groups[1].Value
  else
    Result := '';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  HTML: string;
  TitleText: string;
begin
  HTML := '<html><head><title>Пример страницы</title></head><body><h1>Заголовок страницы</h1></body></html>';
 
  TitleText := GetTextBetweenTags(HTML, 'title');
  ShowMessage('Текст в теге <title>: ' + TitleText);  // Пример использования
end;

Объяснение:

Регулярное выражение
```
'<%s[^>]*>(.*?)</%s>'
```
ищет содержимое между тегами, включая атрибуты, если они есть.
В методе
```
GetTextBetweenTags
```
извлекается текст между тегами
```
<Tag>
```
и
```
</Tag>
```
, используя регулярное выражение.

АрсКодер 2 дня назад #

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, SHDocVw, Vcl.OleCtrls,
Vcl.ExtCtrls, IdHTTP, IdSSLOpenSSL, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, System.Net.HttpClient, System.Net.URLClient,
System.Net.HttpClientComponent;

uses System.Net.HttpClient, System.Net.URLClient;

procedure TForm1.Button5Click(Sender: TObject);

var

Client: TNetHTTPClient;

Response: IHTTPResponse;

HTML: string;

begin

Client := TNetHTTPClient.Create(nil);

try

// Отправляем GET-запрос

Response := Client.Get('https://primgorod.ru');

// Получаем содержимое страницы

HTML := Response.ContentAsString();