Телеграмм чат группы Delphi

2020 June 09

ИМ

Иван Михайлов... in Delphi & Lazarus

massiv[0] := student;
massiv[1] := prohvessor

;

У меня пока только так получается.
var massiv: array[1..4] of person;
begin
massiv[1] := person.create;
massiv[1].name := 'John';
и т.д.

источник

19:34пожаловаться #1

ИМ

Иван Михайлов... in Delphi & Lazarus

George Bakhtadze

massiv[0] := student;
massiv[1] := prohvessor

;

Всё, я понял, как делать. Спасибо.

источник

20:58пожаловаться #2

AF

Andrew Fa in Delphi & Lazarus

Ребят, всем привет. Может кто подсказать, как можно взять подстроку в строке но не по количеству символов, а от одного символа, до другого. Будет здорово, если есть какой-то аналог AnsiPos (string, startSymbol, endSymbol)

источник

21:37пожаловаться #3

VA

Viktor Akselrod in Delphi & Lazarus

Andrew Fa

Ребят, всем привет. Может кто подсказать, как можно взять подстроку в строке но не по количеству символов, а от одного символа, до другого. Будет здорово, если есть какой-то аналог AnsiPos (string, startSymbol, endSymbol)

Готового варианта нет. Но написать самому нет никаких проблем

источник

21:39пожаловаться #4

AF

Andrew Fa in Delphi & Lazarus

Viktor Akselrod

Готового варианта нет. Но написать самому нет никаких проблем

окей. пока нашел такой пример, опробую его

источник

21:39пожаловаться #5

A

Anton in Delphi & Lazarus

Andrew Fa

окей. пока нашел такой пример, опробую его

проследить только надо что конец позже начала. иначет другой тег зацепишь тот что раньше был.

источник

21:42пожаловаться #6

AF

Andrew Fa in Delphi & Lazarus

Anton

проследить только надо что конец позже начала. иначет другой тег зацепишь тот что раньше был.

у меня начало отсекается / а конец "

источник

21:44пожаловаться #7

AF

Andrew Fa in Delphi & Lazarus

у между всем этим цельное слово

источник

21:44пожаловаться #8

RS

Renat Suleymanov in Delphi & Lazarus

Andrew Fa

Ребят, всем привет. Может кто подсказать, как можно взять подстроку в строке но не по количеству символов, а от одного символа, до другого. Будет здорово, если есть какой-то аналог AnsiPos (string, startSymbol, endSymbol)

uses
  StrUtils
;

function ExtractBetweenKeys(const ASource, Key1, Key2: String;
  var APos: Integer; out ADest: String): Boolean;
var
  AStart, AnEnd: Integer;
begin
  Result := False;
  AStart := PosEx(Key1, ASource, APos);
  if AStart <> 0 then
  begin
    Inc(AStart, Length(Key1));
    AnEnd := PosEx(Key2, ASource, AStart);
    if AnEnd <> 0 then
    begin
      ADest := copy(ASource, AStart, AnEnd - AStart);
      Result := True;
      APos := AnEnd + Length(Key2)
    end
  end
end;

Извлекает подстроку между ключами и помещает позицию на символ сразу после найденного, к примеру, для дальнейшего поиска

источник

21:52пожаловаться #9

AF

Andrew Fa in Delphi & Lazarus

Renat Suleymanov

uses
  StrUtils
;

function ExtractBetweenKeys(const ASource, Key1, Key2: String;
  var APos: Integer; out ADest: String): Boolean;
var
  AStart, AnEnd: Integer;
begin
  Result := False;
  AStart := PosEx(Key1, ASource, APos);
  if AStart <> 0 then
  begin
    Inc(AStart, Length(Key1));
    AnEnd := PosEx(Key2, ASource, AStart);
    if AnEnd <> 0 then
    begin
      ADest := copy(ASource, AStart, AnEnd - AStart);
      Result := True;
      APos := AnEnd + Length(Key2)
    end
  end
end;

Извлекает подстроку между ключами и помещает позицию на символ сразу после найденного, к примеру, для дальнейшего поиска

ого. спасибо!

источник

21:53пожаловаться #10

2020 June 10

AF

Andrew Fa in Delphi & Lazarus

А кто может подсказать, как исправить отображение сайтов в twebbrowser стандартном, чтобы жс и айфреймы показывало. Не обязательно с сохранением верстки

источник

00:13пожаловаться #11

RS

Renat Suleymanov in Delphi & Lazarus

У менять планируется служба в Linux, которая будет скачивать youtube ролики. Как правильно в Debian можно настроить папку с автоочисткой как с помощью logrotate... Или все-таки это лучше реализовать самим приложением?

источник

14:47пожаловаться #12

AS

Alexey Shumkin in Delphi & Lazarus

Renat Suleymanov

У менять планируется служба в Linux, которая будет скачивать youtube ролики. Как правильно в Debian можно настроить папку с автоочисткой как с помощью logrotate... Или все-таки это лучше реализовать самим приложением?

Unix way - logrotate )

источник

14:48пожаловаться #13

RS

Renat Suleymanov in Delphi & Lazarus

Alexey Shumkin

Unix way - logrotate )

Ну это же не логи будут. А видео по 50-300 Мб и более. Или не важно?

источник

14:48пожаловаться #14

AS

Alexey Shumkin in Delphi & Lazarus

Renat Suleymanov

Ну это же не логи будут. А видео по 50-300 Мб и более. Или не важно?

ну он задумывался для логов, но там указывается маска файлов.. так что пофик

источник

14:49пожаловаться #15

AS

Alexey Shumkin in Delphi & Lazarus

Renat Suleymanov

У менять планируется служба в Linux, которая будет скачивать youtube ролики. Как правильно в Debian можно настроить папку с автоочисткой как с помощью logrotate... Или все-таки это лучше реализовать самим приложением?

не изобретай велосипед )) не стОит )

источник

14:49пожаловаться #16

RS

Renat Suleymanov in Delphi & Lazarus

Alexey Shumkin

ну он задумывался для логов, но там указывается маска файлов.. так что пофик

Хм... Спасибо, изучу получше logrotate

источник

14:49пожаловаться #17

AS

Alexey Shumkin in Delphi & Lazarus