1: Irgentwas klappt da bei "procedure TableContent; (...)" nicht.
Wenn daraus procedure Tform1.TableContent; mache und oben bei Private die Procedur
(procedure TableContent
hinzufüge klappt es. (keine Compilierungsfehler)
So..
2: StringGrid1.Cells[2,i+1]:=IntToStr(af.Field_Type);
"[Fehler] Unit1.pas(67): E2003 Undefinierter Bezeichner: 'Field_Type'"
Edit:
Ich kapier das einfach nicht mehr..
(...)
Edit2:
Delphi-Quellcode:
procedure TForm1.Button8Click(Sender: TObject);
var q:
string;
ex: boolean;
begin
if assigned(FResult)
then begin
if FMysql.Status<>MYSQL_STATUS_READY
then
ShowMessage('
Ein Ergebnis wurde unvollständig gelesen!');
FreeAndNil(FResult);
end;
q := InputBox('
Geben Sie eine Abfrage ein',
'
Welche Abfrage durchgeführt werden soll','
SELECT * FROM daten WHERE id = 1');
FResult := FMysql.query(q, true, ex);
if assigned(FResult)
then
begin
ShowMessage('
Query: OK - Ergebnis gespeichert');
TableContent;
end
else
begin
if ex
then
begin
ShowMessage('
Query: OK - ausgeführt')
end
else
begin
ShowMessage('
Query fehlgeschlagen: '+FMysql.LastError);
end;
end;
end;
Jetzt hab ich es. Diese Auswertungsprocedur die es da noch gibt die hat mich verwirrt! Die braucht man garnicht.. also Text AUSGEBEN klappt jetzt auch!