ich poste jetzt am besten mal die ganze prozedur und schreib dazu wie weit ich mit dem debugger gekommen bin. also:
Delphi-Quellcode:
//ein entschlossener Doppelklick auf die installierten Programme sollte hier
//dann die vorhandenen und verwendeten Lizenzen zum Programm anzeigen
procedure TfrmChange.lbInstProgDblClick(Sender: TObject);
var querystring : string;
vorhanden, verwendet : integer;
begin
IBQuery1.SQL.Clear;
querystring := 'SELECT INST_PROGR, VORH_LIZENZEN FROM T_PROGR WHERE PROGR_STRING = '+
QuotedStr(lbInstProg.Items[lbInstProg.ItemIndex]);
IBQuery1.SQL.Text := querystring;
IBQuery1.Open;
while not IBQuery1.Eof do
begin
try
vorhanden := IBQuery1.FieldByName('VORH_LIZENZEN').AsInteger;
verwendet := IBQuery1.FieldByName('INST_PROGR').AsInteger;
lblVerwendet.Caption := 'Verwendete Lizenzen: '+IntToStr(verwendet);
edLiz.Text := IntToStr(vorhanden);
IBQuery1.Next;
except
IBQuery1.Next;
end;
end;
end;
bin jetzt soweit gekommen, als dass ich denke dass der fehler nicht im try-except-block auftritt sondern weiter oben bei der zuweisung des querystrings.
in der zeile "IBQuery1.SQL.Text := querystring;" enthält querystring den wert 'SELECT INST_PROGR, VORH_LIZENZEN FROM T_PROGR WHERE PROGR_STRING = 'Adobe Acrobat 5.0'' IBQuery1.SQL.Text hingegen enthält nach dieser zuweisung den wert 'SELECT INST_PROGR, VORH_LIZENZEN FROM T_PROGR WHERE PROGR_STRING = 'Adobe Acrobat 5.0''#$D#$A
das sind delphi bzw. interbase-steuerzeichen (#$D#$A) oder?? denn wenn ich diese in der debugger-session entferne dann wird die halbe zuweisung mit gelöscht. kann es sein dass diese steuerzeichen meinen fehler verursachen??
gruß
changer
[edit=Sharky]Code-Tags in Delphi-Tags geändert. Mfg, Sharky[/edit]