MySQLDB lesen

[Tommy1988]

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!