case
Januar 26, 2011 - Lesezeit: ~1 Minute

case -Rückgabe eines Wertes nach einer Auswahl

select case WERT 
           when -1 then 'unbekannt'
           when 1  then 'Ja'
           else 'No'
         end from ...

 

oder

select case
          when GEBURT is null and GESCHLECHT=2 then 'Geburt ist unbekannt'
          when LAKTATION = 0 and GESCHLECHT=2 then 'weibl. Kalb'
          when LAKTATION > 0 then 'Kuh'
          else 'Das wird nie eine Kuh'
         end from ...

 

Tags:

Ausgabe einer Meldung bei der Kompilierung
Januar 21, 2011 - Lesezeit: ~1 Minute


{$Message Hint 'Herrn XXX fragen, ob die Zeilen wegfallen können.'}    // Hinweis




 

		
		
        
        Tags: 
	


	
	








	
	
	
	
	

		
		
			
Firebird leave - Sprung

		

		
		
Januar 21, 2011 - Lesezeit: ~1 Minute


		
		
    

  1. ohne Sprungmarke -> leave verlässt Schleife
    2. 

  2. mit Sprungmarke
    3. 



while (b < 10) do
begin
  if (b=5) then leave;
  b = b + 1;
  if (b=2) then leave ohne2
  suspend;
  ohne2:
end
.. weiter



 

		
		
        
        Tags: Firebird 
	


	
	








	
	
	
	
	

		
		
			
Umstellung auf Drupal 6

		

		
		
Januar 14, 2011 - Lesezeit: ~1 Minute


		
		
Da die Unterstützung für Drupal 5 eingestellt wurde, musste die Seite auf Drupal 6 umgestellt werden.



Dabei ist auch die Theme der Seite verlustig gegangen.

		
		
        
        Tags: 
	


	
	








	
	
	
	
	

		
		
			
Win7, OnBeforePost und DevExpress Grid 6.53

		

		
		
November 16, 2010 - Lesezeit: ~1 Minute


		
		
In der Version 6.53 existiert ein Designfehler im cxGrid, wenn in der Event OnBeforePost eine Messagebox aufgerufen wird


 


procedure TForm1.dxMemData1BeforePost(DataSet: TDataSet);
begin
  if MessageDlg('save record?', mtConfirmation,mbYesNo,0) <> mrYes then
    Abort;
end;


 


Der Dialog sollte eigentlich so aussehen:


Ansicht Fehler


 


Durch den Fehler sieht es aber so aus:


Ansicht ok


 


 


Als Workaround wurde mir von DevExpress folgendes empfohlen:


 


procedure TForm1.dxMemData1BeforePost(DataSet: TDataSet);
begin
  cxGrid1.Perform(WM_SETREDRAW, Integer(false), 0);
  try
    if MessageDlg('save record?', mtConfirmation, mbYesNo, 0) <> mrYes then
      Abort;
  finally
    cxGrid1.Perform(WM_SETREDRAW, Integer(true), 0);
  end;
end;

		
		
        
        Tags: Delphi Delphi 2009 DevGrid 
	


	
	








	
	
	
	
	

		
		
			
Ubuntu 10.10 und VMWare 7.1

		

		
		
Oktober 11, 2010 - Lesezeit: ~1 Minute


		
		
Die Installation der VMWare-Module unter Ubuntu 10.10 funktioniert nicht. Mit dem Patch geht es 

		
		
        
        Tags: Ubuntu VMWare 
	


	
	







			


			
			

			
Neu
Suchen
 
Links