InputBox / InputQuery?

D. Annies · Verfasst: Di 12.01.10 22:27

Hi, Delpher,

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

markieren

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

_________________
ut vires desint, tamen est laudanda voluntas

Ehemaliges Mitglied Erhaltene Danke: 1

D. Annies hat folgendes geschrieben :

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 · Verfasst: 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:

markieren

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

_________________
Ich weiß nicht viel, lern aber dafür umso schneller^^

D. Annies · Verfasst: Mi 13.01.10 11:36

Hi, Bergmann,

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

Danke, Detlef

_________________
ut vires desint, tamen est laudanda voluntas

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme