Archive for the ‘Delphi’ Category

Задачка

Воскресенье, Март 20th, 2016

Найдите ошибки и оптимизируйте функцию

procedure MyProc;
var
i : Word;
A : String;
StrList : TStringList;
begin
for I := 0 to Query.RecordCount do
begin
A := Query.FieldByName('Field1').Value;
StrList.Add(A);
end;
end;



(далее…)

Задачка

Воскресенье, Март 20th, 2016

Оптимизируйте функцию

function MyFunc(Num : Integer) : String;
begin
if Num = 1 then Result := 'понедельник';
if Num = 2 then Result := 'вторник';
if Num = 3 then Result := 'среда';
if Num = 4 then Result := 'четверг';
if Num = 5 then Result := 'пятница';
if Num = 6 then Result := 'суббота';
if Num = 7 then Result := 'воскресенье';
end;

(далее…)

Задачка

Воскресенье, Март 20th, 2016

Оптимизируйте функцию

procedure TForm1.Button1Click(Sender: TObject);
var
fmMain : TfmMain;
begin
fmMain := TfmMain.Create;
fmMain.ShowModal;
end;

(далее…)

Задачка

Воскресенье, Март 20th, 2016

Чему равно значение переменной k, в результате выполнения «куска» кода?

try
k := 1;
if k = 1 then
begin
k := 2;
exit;
end;
finally
k := 3;
end;

(далее…)