Search options (Page 9 of 16)

Form2_OnShow (Sender: TObject; Action: string);
begin
    if Action = 'NewRecord' then
        Form2.EditField.Text := SQLQuery('SELECT `col5` FROM `Chain` ORDER BY `id` DESC LIMIT 1');
end;

var
    d : String = 'Default Value';
    t : String;
begin
    t := inputbox('Hello', 'Title', d);
    if ((t ='123')) then showmessage('correct')
    else if ((t <>'123') and (t <>d)) then showmessage('wrong')
end;

var Names : array[0..10] of string;
    i,j,longest:Integer;

procedure Form1_OnShow_Event (Sender: TObject; Action: string ;DataSet: TDataSet); begin
     Names:=['all','john','alisa','makhmara','kiven','brad toki','salamoiya','lomia gone','steven baloka','irak fone','qutazami phoronix'];

     // get length of longest string
     longest := Length(Names[0]);
     for i:=1 to Length(Names)-1 do
        if Length(Names[i]) > longest then longest := Length(Names[i]);

     Form1.ComboBox2.Items.Add(Names[0]+'             ');  // 13 space
     Form1.ComboBox2.Items.Add(Names[1]+'          ');   // 12 space
     Form1.ComboBox2.Items.Add(Names[2]+'            ');   // 12 space  
     Form1.ComboBox2.Items.Add(Names[3]+'        ');       // 8 space
     Form1.ComboBox2.Items.Add(Names[4]+'            ');    //12 space
     Form1.ComboBox2.Items.Add(Names[5]+'          ');     // 10 space
     Form1.ComboBox2.Items.Add(Names[6]+'         ');      // 9 space
     Form1.ComboBox2.Items.Add(Names[7]+'         ');       //9 space
     Form1.ComboBox2.Items.Add(Names[8]+'        ');       // 8 space
     Form1.ComboBox2.Items.Add(Names[9]+'           ');     //11 space
     Form1.ComboBox2.Items.Add(Names[10]+'     ');         // 5 space
     Form1.ComboBox2.ItemIndex:=0 ;

     for i := 0 to Length(Names) -1 do begin
           // Names[i]:= ;     // how to calculate a number of spaces for each element
           if  Length(Names[i]) = longest then
               Form1.ComboBox1.Items.Add(AddSpaces(Names[i], longest-Length(Names[i])+1))
           else if (Length(Names[i]) mod 2) = 1 then
               Form1.ComboBox1.Items.Add(AddSpaces(Names[i], longest-Length(Names[i])))
           else
              Form1.ComboBox1.Items.Add(AddSpaces(Names[i], longest-Length(Names[i])-1));

     end;
     Form1.ComboBox1.ItemIndex:=0 ;
end;

function AddSpaces(str: String; count:Integer=5):String ;
var
    i: Integer;
begin
    result := str;
    for i:=0 to count do result := result +' ';
end;

{
//https://stackoverflow.com/questions/15294501/how-to-count-number-of-occurrences-of-a-certain-char-in-string
}
function OccurrencesOfChar(const S: string; const C: char=' '): integer;
var
  i: Integer;
begin
  result := 0;
  for i := 1 to Length(S) do
    if S[i] = C then
      inc(result);
end;


begin
end.

SQLQuery('SELECT * FROM settings LIMIT 1', SData);
if Not SData.EoF then begin
    Form1.mainPanel501.Top := SData.FieldByName('mainPanel501Top').asInteger;
    Form1.mainPanel501.Left := SData.FieldByName('mainPanel501Left').asInteger;

    Form1.mainPanel502.Top := SData.FieldByName('mainPanel502Top').asInteger;
    Form1.mainPanel502.Left := SData.FieldByName('mainPanel502Left').asInteger;

    Form1.mainPanel503.Top := SData.FieldByName('mainPanel503Top').asInteger;
    Form1.mainPanel503.Left := SData.FieldByName('mainPanel503Left').asInteger;
end else SQLExecute('INSERT INTO `settings` (id) VALUES (1)');