Hallo,
ich versuche das oben Genannte, nämlich das Ergebnis einer SQL-Abfrage
in ein Memo zu schreiben, da eventuell noch ein paar Zusätze gemacht
werden sollen. Bei der folgenden Prozedur erhalte ich aber immer eine
Zugriffsverletzung in der Idapi. Wieso?
procedure TForm1.Button1Click(Sender: TObject);<br>
var<br>
P: PChar;<br>
begin<br>
with Memo1 do begin <br>
Clear; <br>
Q2.DisableControls; <br>
Q2.First; <br>
Q2.GetFieldData(Q2.FieldByName('titel'),P); <br>
Lines.Add(P); <br>
while Q2.RecordCount > Q2.RecNo do begin <br>
Q2.Next; <br>
Q2.GetFieldData(Q2.FieldByName('titel'),P); <br>
Lines.Add(P); <br>
end; <br>
Q2.EnableControls; <br>
end; <br>
end; <br>
ich versuche das oben Genannte, nämlich das Ergebnis einer SQL-Abfrage
in ein Memo zu schreiben, da eventuell noch ein paar Zusätze gemacht
werden sollen. Bei der folgenden Prozedur erhalte ich aber immer eine
Zugriffsverletzung in der Idapi. Wieso?
procedure TForm1.Button1Click(Sender: TObject);<br>
var<br>
P: PChar;<br>
begin<br>
with Memo1 do begin <br>
Clear; <br>
Q2.DisableControls; <br>
Q2.First; <br>
Q2.GetFieldData(Q2.FieldByName('titel'),P); <br>
Lines.Add(P); <br>
while Q2.RecordCount > Q2.RecNo do begin <br>
Q2.Next; <br>
Q2.GetFieldData(Q2.FieldByName('titel'),P); <br>
Lines.Add(P); <br>
end; <br>
Q2.EnableControls; <br>
end; <br>
end; <br>
Comment