Category Archives: Delphi

Delphi. Как загрузить сайт для парсинга?

Posted on 28.11.2015 by Stanislav_Panteleev

Наверное, самый простой способ загрузить сайт для парсинга это компонент TIdHTTP и его метод Get. Если открыть официальную документацию компонентов Indy, то можно увидеть следующее описание метода Get, компонента TidHTTP

function Get(
    AURL:  string
):  string;  overload;

function Get(

AURL: string

): string; overload;

И ещё одна его перегруженная версия, которая грузит сайт в … Continue reading →

Posted in Delphi, Delphi и сети, Без рубрики | Comments Off

Регулярные выражения. Практика

Posted on 27.11.2015 by Stanislav_Panteleev

В прошлом посте я разбирался с теорией, сейчас попробую попрактиковаться в Delphi с разными примерами из разных блогов. Элементарно

//uses RegularExpressions
...
procedure TForm.Button1Click(Sender: TObject);
var 
  RegEx: TRegEx;
begin
  RegEx := TRegEx.Create('Hello');// Определяем то, что ищем, собственно регулярное выражение
//Далее определяем текст, в котором ищем
  if RegEx.IsMatch('Hello world') then Caption := 'match'; 
end;

//uses RegularExpressions

...

procedure TForm.Button1Click(Sender: TObject);

var

RegEx: TRegEx;

begin

RegEx := TRegEx.Create('Hello');// Определяем то, что ищем, собственно регулярное выражение

//Далее определяем текст, в котором ищем

if RegEx.IsMatch('Hello world') then Caption := 'match';

end;

Теперь тоже самое, но с использованием метасимволов

procedure TForm.ButtonClick(Sender: TObject);
var 
  RegEx:TRegEx;
begin
  RegEx := TRegEx.Create('^H[\w]+o\b');
  if RegEx.IsMatch('Hello world') then 
    form.Caption := 'match';
end;

procedure TForm.ButtonClick(Sender: TObject);

var

RegEx:TRegEx;

begin

RegEx := TRegEx.Create('^H[\w]+o\b');

if RegEx.IsMatch('Hello world') then

form.Caption := 'match';

end;

Что написано в последнем коде? Разберем регулярное выражение

Posted in Delphi, Без рубрики, Регулярные выражения | Comments Off

Регулярные выражения.Теория

Posted on 26.11.2015 by Stanislav_Panteleev

Заинтересовался темой регулярных выражений. Серию постов про регулярные выражения, пишу для себя, чтобы разобраться и систематизировать информацию. Но если для Вас пост окажется полезным – буду рад. Зачем? Насколько я понимаю – для того, чтобы минимальным количеством кода находить информацию в тексте. … Continue reading →

Posted in Delphi, Без рубрики, Регулярные выражения | Comments Off

Как подключиться к удаленной БД MySQL и открыть другую форму после успешного подключения?

Posted on 21.11.2015 by Stanislav_Panteleev

Что делаем? Пишем программу, которая открывает 2 форму, после успешного подключения к БД. Пишем в Delphi FireMonkey HD Application Исходные компоненты 1 форма – главная, откроется после успешного подключения

Posted in Delphi, MySQL | Comments Off

Работа с дисками, папками, файлами. Обзор System.IOUtils

Posted on 14.11.2015 by Stanislav_Panteleev

uses System.IOUtils Список и размер дисков

procedure TForm1.bGetDisksClick(Sender: TObject);
var SDA:TStringDynArray; i:integer;
begin
 Combobox1.Clear;
 SDA:=Tdirectory.GetLogicalDrives;
 for i := 0 to High(SDA) do 
   Combobox1.Items.Add(SDA[i]);
 Combobox1.ItemIndex:=0;
end;

//Размер диска (на примере диска С это номер 3 функции DiskSize)
//Выводим в ListBox
ListBox1.Clear; 
ListBox1.Items.Add( inttostr( DiskSize(3))+'   bytes'  ) ;

procedure TForm1.bGetDisksClick(Sender: TObject);

var SDA:TStringDynArray; i:integer;

begin

Combobox1.Clear;

SDA:=Tdirectory.GetLogicalDrives;

for i := 0 to High(SDA) do

Combobox1.Items.Add(SDA[i]);

Combobox1.ItemIndex:=0;

end;

//Размер диска (на примере диска С это номер 3 функции DiskSize)

//Выводим в ListBox

ListBox1.Clear;

ListBox1.Items.Add( inttostr( DiskSize(3))+' bytes' ) ;

Сбор сведений о каталогах и файлах

procedure TForm1.GetDirsAndFilesClick(Sender: TObject);
var SDA:TStringDynArray; i:integer;
begin
SDA:=TDirectory.GetFileSystemEntries('C:\','*.*');
ListBox1.Clear;
for i := 0 to High(SDA) do 
  ListBox1.Items.Add(SDA[i]);
end;
{Также полезные функции GetFiles и GetDirectories}

procedure TForm1.GetDirsAndFilesClick(Sender: TObject);

var SDA:TStringDynArray; i:integer;

begin

SDA:=TDirectory.GetFileSystemEntries('C:\','*.*');

ListBox1.Clear;

for i := 0 to High(SDA) do

ListBox1.Items.Add(SDA[i]);

end;

{Также полезные функции GetFiles и GetDirectories}

Posted in Delphi, FireMonkey, Без рубрики | Comments Off

TAction simple example (Copy Cut Paste)

Posted on 13.11.2015 by Stanislav_Panteleev

На форме FireMonkey – Memo, ActionList, MainMenu В ActionList добавим 3 элемента acCopy acCut acPaste Напишем обработчики для элементов ActionList

procedure TForm1.acCopyExecute(Sender: TObject);
begin
  Memo.CopyToClipboard;
end;

procedure TForm1.acCutExecute(Sender: TObject);
begin
  Memo.CutToClipboard;
end;

procedure TForm1.acPasteExecute(Sender: TObject);
begin
  Memo.PasteFromClipboard;
end;

procedure TForm1.acCopyExecute(Sender: TObject);

begin

Memo.CopyToClipboard;

end;

procedure TForm1.acCutExecute(Sender: TObject);

begin

Memo.CutToClipboard;

end;

procedure TForm1.acPasteExecute(Sender: TObject);

begin

Memo.PasteFromClipboard;

end;

Далее – актуализируем через Update

procedure TForm1.acCopyUpdate(Sender: TObject);
begin
  acCopy.Enabled := (Memo.SelLength>0);
end;

procedure TForm1.acCutUpdate(Sender: TObject);
begin
  acCut.Enabled:=(Memo.SelLength>0)
end;

procedure TForm1.acPasteUpdate(Sender: TObject);
var 
  Clip:IFMXClipboardService; 
  s:string;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,IInterface(Clip)) then
  begin
    s:=Clip.GetClipboard.ToString;
    acPaste.Enabled:=s.Length>0
  end 
  else 
    acPaste.Enabled:=false;
end;

procedure TForm1.acCopyUpdate(Sender: TObject);

begin

acCopy.Enabled := (Memo.SelLength>0);

end;

procedure TForm1.acCutUpdate(Sender: TObject);

begin

acCut.Enabled:=(Memo.SelLength>0)

end;

procedure TForm1.acPasteUpdate(Sender: TObject);

var

Clip:IFMXClipboardService;

s:string;

begin

if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,IInterface(Clip)) then

begin

s:=Clip.GetClipboard.ToString;

acPaste.Enabled:=s.Length>0

end

else

acPaste.Enabled:=false;

end;

Posted in Delphi, FireMonkey | Comments Off

PopupMenu

Posted on 12.11.2015 by Stanislav_Panteleev

Самый простой способ подключить TPopupMenu – воспользоваться свойством PopupMenu. На рис. ниже пример для компонента TImage Но, к сожалению не у всех компонентов есть это свойство, например, его нет у TForm. Если у компонента нет свойства Popup, то можно подключить … Continue reading →

Posted in Delphi, FireMonkey, Без рубрики | Comments Off

Ресурсы

Posted on 12.11.2015 by Stanislav_Panteleev

Зачем нужны ресурсы? Чтобы защитить нужные файлы от изменений, скрыть от пользователя. И также, насколько я понимаю, если проводить аналогию с физическим миром это что-то вроде склада, где по отдельному идентификатору можно вызвать то или иное изображение, видео или другой … Continue reading →

Posted in Delphi, FireMonkey | Comments Off

Delphi. Программа-шутка

Posted on 11.11.2015 by Stanislav_Panteleev

Вместо закрытия создает новые окна самой себя

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=TCloseAction.caNone;
with TForm1.Create(Application) do show();
Form1.Caption:='joke';
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action:=TCloseAction.caNone;

with TForm1.Create(Application) do show();

Form1.Caption:='joke';

end;

Posted in Delphi, Без рубрики | Comments Off

MessageDlg – запрос сохранения данных в Memo

Posted on 11.11.2015 by Stanislav_Panteleev

var textModified:boolean;

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin
if textModified then


        case MessageDlg('Сохранить изменения в тексте',TMsgDlgType.mtConfirmation,
        [tMsgDlgBtn.mbYes]+[tMsgDlgBtn.mbNo]+[tMsgDlgBtn.mbCancel],-1) of

        mrYes: memo1.Lines.SaveToFile('saved.txt');
        mrNO: CanClose:=true;
        mrCancel: CanClose:=true;


        end

end;

var textModified:boolean;

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

if textModified then

case MessageDlg('Сохранить изменения в тексте',TMsgDlgType.mtConfirmation,

[tMsgDlgBtn.mbYes]+[tMsgDlgBtn.mbNo]+[tMsgDlgBtn.mbCancel],-1) of

mrYes: memo1.Lines.SaveToFile('saved.txt');

mrNO: CanClose:=true;

mrCancel: CanClose:=true;

end

end;

Posted in Delphi, FireMonkey, Без рубрики | Comments Off

Category Archives: Delphi

Delphi. Как загрузить сайт для парсинга?

Регулярные выражения. Практика

Регулярные выражения.Теория

Как подключиться к удаленной БД MySQL и открыть другую форму после успешного подключения?

Работа с дисками, папками, файлами. Обзор System.IOUtils

TAction simple example (Copy Cut Paste)

PopupMenu

Ресурсы

Delphi. Программа-шутка

MessageDlg – запрос сохранения данных в Memo

MY PROJECTS

Recent Posts

Categories