david
7ebea5ffa7
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@12 7f62d464-2af8-f54e-996c-e91b33f51cbe
30 lines
405 B
Plaintext
30 lines
405 B
Plaintext
unit Global;
|
|
|
|
var
|
|
WorkingDir: string;
|
|
|
|
procedure InitGlobal;
|
|
begin
|
|
WorkingDir := ExtractFilePath(Application.ExeName) + 'Lib\';
|
|
end;
|
|
|
|
procedure DoneGlobal;
|
|
begin
|
|
{ dummy }
|
|
end;
|
|
|
|
|
|
procedure DeleteEmptyLines(Ss: TStrings);
|
|
var
|
|
i: Integer;
|
|
begin
|
|
i := 0;
|
|
while i <= Ss.Count - 1 do
|
|
if Trim(Ss[i]) = '' then
|
|
Ss.Delete(i)
|
|
else
|
|
i := i + 1;
|
|
end;
|
|
|
|
end.
|