Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
procedure TForm1.Button1Click(Sender: TObject);
var isField: Boolean;
Fieldname: string;
begin
Fieldname:= 'blablubb';
with SQLQuery do
begin
Active:= False;
SQL.Text:= 'SHOW FIELDS FROM tabellenname';
Open;
end;
try
SQLQuery.Locate('Fields', Fieldname, [loCaseInsensitive, loPartialKey]);
IsField:= True;
except
IsField:= False;
end;
if IsField = False then
ShowMessage('Feld ' + Fieldname + ' ist nicht vorhanden!')
else
ShowMessage('Feld ' + Fieldname + ' ist vorhanden!')
end;
Aber das Prinzip sollte klar sein.Original geschrieben von nox
hmm uups
eigentlich für eine PHP mysql abfrage...