Hallo,
Ich habe ein kleines programm für eine datenübersicht geschrieben, wo ich mit den Zeos auf eine
Access-Datenbank zugreife und die daten in einem DBGrid anzeige.
Das funktioniert unter Win7 und WinXP wunderbar, aber sobald
procedure TMainForm.NMRDBGridCellClick(Column: TColumn);
aufgerufen wird gibt es die Fehlermeldung: Zu wenig Arbeitsspeicher. Dieser fehler tritt aber nur bei XP auf, unter Win7 Läft es einwandfrei.
Ach ja, hatte es vorher mit einer ADOConnection und ADOQuery am laufen, da gab es den fahler nicht!
Hat jemand eine Idee woran das liegt?
Delphi-Quellcode:
procedure TMainForm.NMRDBGridCellClick(Column: TColumn);
var
FileRun: TCustomFileRun;
FileName: String;
begin
if not Assigned(Column.Field) then Exit;
Clipboard.AsText := Column.Field.AsString;
FileRun := TCustomFileRun.Create(nil);
try
FileRun.Operation := 'open';
//Hier Tritt der fehler auf!!!
FileName := NMRZReadOnlyQuery.Fields[3].AsString;
// FileName := NMRZReadOnlyQuery.Fields.FieldByNumber(Column.Field.FieldNo + 2).AsString;
Delete(FileName, 1, 1);
Delete(FileName, Length(FileName), 1);
FileRun.FileName := FileName;
SucheEdit.Text := FileName;
FileRun.Execute;
finally
FileRun.Free;
end;
end;