Daily Archives: 22.11.2016

Delphi. Как правильно удалять несколько элементов из TStringList, TObjectList и вообще из списков?

Posted on 22.11.2016 by Stanislav_Panteleev

Как правильно удалять несколько элементов из TStringList, TObjectList и вообще из списков?

for i := 0 to SomeStringList.Count - 1 do 
  begin
    if SomeStringList[i] = 'SomeValue' then // some condition here    
      SomeStringList.Delete(i); 
end;

for i := 0 to SomeStringList.Count - 1 do

begin

if SomeStringList[i] = 'SomeValue' then // some condition here

SomeStringList.Delete(i);

end;

И вот такой способ ошибочен так как постоянно меняется Count и индексы элементов, пробовал через repeat и while, но там похожая ситуация. Как вариант проходить одним циклом, … Continue reading →

Posted in Delphi | Comments Off

Delphi. Когда использовать read / write а когда get set ?

Posted on 22.11.2016 by Stanislav_Panteleev

Озаботился тут этим вопросом теоретического интереса ради и получил для себя удивительный ответ! Как известно есть 2 способа задать свойства объекту

...
private  
  FSomeProperty:string; 
public 
  property SomeProperty: string read FSomeProperty write FSomeProperty;
...

...

private

FSomeProperty:string;

public

property SomeProperty: string read FSomeProperty write FSomeProperty;

...

...
private 
  function GetSomeProperty:string
  procedure SetSomeProperty(AValue:string); 
public 
  property SomeProperty:string  read GetSomeProperty write SetSomeProperty;
...

...

private

function GetSomeProperty:string

procedure SetSomeProperty(AValue:string);

public

property SomeProperty:string read GetSomeProperty write SetSomeProperty;

...

А вот и интересный ответ

Posted in Delphi | Comments Off

Delphi. Отправляем смс через шлюз или как классно когда все сделано за Вас)

Posted on 22.11.2016 by Stanislav_Panteleev

Понадобилось сделать смс рассылки. Был порадован массой готовых решений для Delphi. Остановился на https://smsc.ru/ Вот мой небольшой пример Цифры здесь означают (<id>, <количество sms>, <стоимость>, <баланс>) в случае успешной отправки // либо (<id>, -<код ошибки>) в случае ошибки

procedure TfSMSTest.bTestClick(Sender: TObject);

var
sms: SMSC;
ResultSDA: TStringDynArray;

  i: Integer;

begin

sms := SMSC.Create;

ResultSDA := sms.send_sms('79221361449', 'Ваш код: 123',0);

MemoResults.Clear;
for i := Low(ResultSDA) to High(ResultSDA) do
    MemoResults.Lines.Add( ResultSDA[i] );


sms.Destroy;



end;

procedure TfSMSTest.bTestClick(Sender: TObject);

var

sms: SMSC;

ResultSDA: TStringDynArray;

i: Integer;

begin

sms := SMSC.Create;

ResultSDA := sms.send_sms('79221361449', 'Ваш код: 123',0);

MemoResults.Clear;

for i := Low(ResultSDA) to High(ResultSDA) do

MemoResults.Lines.Add( ResultSDA[i] );

sms.Destroy;

end;

Вот цифра … Continue reading →

Posted in Delphi, SMS | Comments Off

Daily Archives: 22.11.2016

Delphi. Как правильно удалять несколько элементов из TStringList, TObjectList и вообще из списков?

Delphi. Когда использовать read / write а когда get set ?

Delphi. Отправляем смс через шлюз или как классно когда все сделано за Вас)

MY PROJECTS

Recent Posts

Categories