Einzelnen Beitrag anzeigen

Kostas

Registriert seit: 14. Mai 2003
Ort: Gerstrhofen
1.099 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

AW: DataSnap Feld im Client ausblenden

  Alt 14. Aug 2012, 15:04
Danke für den Hinweis. So gehts.

Code:
procedure TfrClient.Button1Click(Sender: TObject);
var con: TServerMethods1Client;
    dataSet:TDataSet;
begin
  if not DataSnapServer.Connected then DataSnapServer.Connected := true;

  con := TServerMethods1Client.Create(DataSnapServer.DBXConnection);
  try
    dataSet := con.getAdrMatchcodes(leMatchcode.Text);
    if (dataSet<>nil) then
    begin
       DataSetProvider1.DataSet := dataSet;
       if ClientDataSet1.Active
       then ClientDataSet1.Refresh
       else ClientDataSet1.Open;

       DBGrid1.Columns.Items[0].Visible := false;

    end;{if}
  finally
    con.Free;
  end;
end;
Gruß Kostas
  Mit Zitat antworten Zitat