Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - InputBox / InputQuery?


D. Annies - Di 12.01.10 22:27
Titel: InputBox / InputQuery?
Hi, Delpher,

leider funzt der folgende Code nicht, Fehlermeldung:
Konstantenobjekt kann nicht als VAR-Parameter weitergegeben werden.


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
InputString := InputQuery('SQL-Eingabedialog''Eingabe:',
    format('select * from "%s" ', [table1.tablename]));
  if ClickedOK then
  begin
    showmessage(inputstring);
    // ... weiteres
  end;


Verwende ich stattdessen eine InputBox, kommt zwar keine Fehlermeldung, aber es passiert nichts // ... weiteres , also nach If ClickedOK

Was kann man da machen?

Gruß, Detlef


Delete - Di 12.01.10 23:09

user profile iconD. Annies hat folgendes geschrieben Zum zitierten Posting springen:
Verwende ich stattdessen eine InputBox, kommt zwar keine Fehlermeldung, aber es passiert nichts // ... weiteres , also nach If ClickedOK

Was kann man da machen?

Eventuell den Rückgabewert prüfen und nicht wahllos eine Variable, die mit dem Code nichts zu tun hat?


Bergmann89 - Di 12.01.10 23:43

Hey,

bei InputQuery wird die Eingabe im 3. Parameter zurückgegeben, und nicht im Result. Das Result sagt bloß ob OK oder Abbrechen gedrückt wurde. Alos:

Delphi-Quelltext
1:
2:
3:
4:
5:
InputString := format('select * from "%s" ', [table1.tablename]);
if InputQuery('SQL-Eingabedialog''Eingabe:', InputString) then 
  //OK gedrückt
else
  //Abbrechen gedrückt


MfG Bergmann


D. Annies - Mi 13.01.10 11:36

Hi, Bergmann,

vielen Dank für deine präzise und erhellende Lösung!
Funzt!

Danke, Detlef