Search options (Page 243 of 400)

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);  
var
    Results: TDataSet;
begin
    SQLQuery('SELECT name, sort FROM person', Results);
    while not Results.Eof do
    begin
        Form1.Memo1.Lines.Add( Results.FieldByName('name').AsString;
        Form1.Memo1.Lines.Add( Results.FieldByName('sort').AsString;
        Results.Next;
    end;
    Results.Free;
end;

procedure Form2_Edit1_OnExit (Sender: string);
begin
    Form2.Edit1.Value := Round(Form2.Edit1.Value);
end;

    Screen.Cursor := crHourGlass; // меняет курсор на песочные часы
    Screen.Cursor := crDefault; // возвращает стандартный курсор

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
var
    arrStr: array of string;
begin
    SetLength(arrStr, 3); // устанавливаем размер массива
    arrStr[0] := 'one';
    arrStr[1] := 'two';
    arrStr[2] := 'three';
end;

si:=Length(str); 
key:= 0;
for i:=1 to si do
begin
     if str[i] = '.' then
     begin
        SetLength(arrStr, key+1);
        arrStr[key]:= str1;
        key:=key+1;
        str1:='';
        Continue;
      end;
      str1:=str1+str[i];
end;

s := 'fgfhhg.hjk';
arrStr := SplitString(s, '.');

procedure form1_Edit1_OnChange (Sender: string);
begin
    if Pos('@', Form1.Edit1.Text)>0 then
    begin
        Form1.Edit1.Cursor := crHandPoint;
        Form1.Edit1.Font.Style:=fsUnderline;
        Form1.Edit1.Font.Color := clHotLight;
    end
    else
    begin
        Form1.Edit1.Cursor := crDefault;
        Form1.Edit1.Font.Style:=0;
        Form1.Edit1.Font.Color := clDefault;
    end;
end;

procedure Form1_Edit1_OnDoubleClick (Sender: string);
begin
    OpenFile('mailto:'+Form1.Edit1.Text);
end;


procedure form1_Edit1_OnDoubleClick (Sender: string);
begin
    OpenFile('mailto:'+Form1.Edit1.Text);
end;

begin
    frmMain.mniAbout.Visible := False;
    frmMain.mniOptions.Visible := False;   
//    frmMain.mniFile.Visible := False;
end.

begin

end.

WHERE id = '  + IntToStr(Form14.TableGrid1.dbItemID)