Search options (Page 174 of 400)

frmLookups.tgProd_CodePrefix.Cell[iCol,iRow].Color

frmLookups.tgProd_CodePrefix.Cell[iCol,iRow].TextColor

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    sl: TStringList;
    s, sRow, sDuration, sDistance: string;
    iPos1, iPos2, iOffset: integer;
begin
     sl := TStringList.Create;
     sl.LoadFromFile('file.xml');

     iOffset := 1;
     iPos1 := 1;
     while true do
     begin
         iPos1 := PosEx('<row>', sl.Text, iOffset);
         if iPos1=0 then break;

         iPos2 := PosEx('</row>', sl.Text, iOffset);
         iOffset := iPos2+1;

         sRow := Copy(sl.Text, iPos1, iPos2-iPos1);

         sDuration := Copy(sRow,  Pos('<duration>', sRow),  Pos('</duration>', sRow)-Pos('<duration>', sRow) );
         sDistance := Copy(sRow,  Pos('<distance>', sRow),  Pos('</distance>', sRow)-Pos('<distance>', sRow) );


         s := Copy(sDuration, Pos('<text>', sDuration)+Length('<text>') , Pos('</text>', sDuration)-Pos('<text>', sDuration)-Length('<text>'));
         Form1.Memo1.Lines.Add(s);

         s := Copy(sDistance, Pos('<text>', sDistance)+Length('<text>') , Pos('</text>', sDistance)-Pos('<text>', sDistance)-Length('<text>'));
         Form1.Memo1.Lines.Add(s);
     end;    


     sl.Free;
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    MySQL: TMyConnection;
begin
    MySQL := TMyConnection.Create(Form1);
    MySQL.Options.UseUnicode := True; 
    MySQL.Server := '10.10.10.10'; // ip address of MySQL server
    MySQL.Port := 3306;
    MySQL.Username := 'username';
    MySQL.Password := 'password';
    MySQL.Database := 'databasename';
    MySQL.LoginPromt := False;

    try
        MySQL.Connect;
    except
        ShowMessage('Can''t connect to database.');
    end;

    if MySQL.Connected then
    begin
       Form1.TableGrid2.dbMySQLConnection := MySQL;
       Form1.TableGrid2.dbSQL:='SELECT id, lastname, firstname FROM employees'; // the id field, want to be able to edit or delete the entry from the table component
       Form1.TableGrid2.dbGeneralTable := 'employees';
       Form1.TableGrid2.dbListFieldsNames :='delete_col,Фамилия,Имя';
       Form1.TableGrid2.dbSQLExecute;
       MySQL.Disconnect;
    end;


end;