Найдите ошибки и оптимизируйте функцию
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;
Найдите ошибки и оптимизируйте функцию
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;
Оптимизируйте функцию
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;
(далее…)
Оптимизируйте функцию
procedure TForm1.Button1Click(Sender: TObject); var fmMain : TfmMain; begin fmMain := TfmMain.Create; fmMain.ShowModal; end;