Code Faster in Delphi - DelphiCon Presentation - Delphi #161

Alister Christie is a Delphi MVP (Most Valued Professional), Consultant, Developer, Trainer, Presenter, and Author. He has presented at ADUG (Australasian Delphi Users Group) Symposia and Code Rage Conferences for many years. Alister holds a degree in Mathematics and Computer Science from Victoria University, Wellington. He lives near Wellington, New Zealand.

On this YouTube Channel, Alister has created many hours of video tutorials to help you learn Delphi Programming in efficient and effective ways. Using his lessons, you will program faster and better, skills applicable for beginners through to experts wanting to expand their programming and coding proficiency.

Video topics by Alister Christie include VCL (Visual Component Library), FireMonkey, FireDAC, Cross-platform, Android, iOS (iPad or iPhone Operating System), Mac OS/X, Windows, IoT (Internet of Things), Algorithms, and more.

[ty]

Спасибо Алистер. Ты подарил мне книгу 'Code Faster in Delphi'. Спасибо.

[eitan]

i got your excellent (printed) book, and it was very informative and fun to read.
just a small tip for the next book :) - i think using sharper and bigger images would be better.
now i'm waiting for a book on AI :D
Thanks Alister !

[MrSleepkill]

Why not just make 1 liner ?





Ofcause with a with record helper for TStringDynArray

Type

TStringDynArrayHelper = record helper for TStringDynArray
Procedure Assign(Dest:TStrings);
Function Count:Integer;
end;

implentation some where...

{ TStringDynArrayHelper }

procedure TStrings);
Var
a : Integer;
begin
Dest.Clear;
For a:=0 TO length(Self)-1 Do
Dest.add(Self[a]);
end;

function TStringDynArrayHelper.Count: Integer;
begin
Result:=SizeOf(Self);
end;