stringgrid zellen beschriften

[herrentor]

morgen, ich möchte gerne eine zelle in meiner stringgrid tabelle beschriften, allerdings ohne das das auswirkungen auf die funktionen haben soll, sprich wenn ich die zelle so beschrifte:

Code:

 StringGrid.Cells[1,1]:='-';

dann kann keine rechnung mehr durchgeführt werden, da kein gültiger gleitkommawert mehr vorliegt.

danke im voraus.

[alcaeus]

Erklär mal genau was du meinst? Liegt in deinem Fall eine Fehlermeldung vor sobald du es machst? Funktioniert die Beschriftung aus irgendeinem Grund nicht? etc.

[herrentor]

genau, fehlermeldung

[alcaeus]

Du kannst in der Routine für die Berechnung einen try-except-Block verwenden:

Delphi-Quellcode:

try
//Kritischer Code
except
//Fehlerbehandlung
end;

Es gibt aber auch noch die Routinen TryStrToFloat und TryStrToInt, sieh dir dazu mal die OH an.

[herrentor]

meintest du so?

Code:

begin
          CanSelect:=Not ((ACol=4) and (ARow=i)); 
          try
           Tab.Cells[4,i]:=('-');
          except
           Tab.Cells[4,i]:=('0');
          end;
         end;

das funktioniert jedenfalls nicht.

[herrentor]

er muss im prinzip denken es würde eine 0 drin stehen, in wirklichkeit steht aber etwas anderes drin.

[alcaeus]

Nein, das Zuweisen müsste ohne try-except funktionieren, deshalb brauchst du es da nicht.
Ich denke mir dass die Fehlermeldung in der Berechnung kommt, irgendwo wo steht
a := StrToFloat(StringGrid1.Cells[1,1]); Die Funktion gibst du zwischen try und except ein, nach except kannst du evtl. eine Meldung oder etwas ausgeben. Vielleicht könnteest du aber mal den Fehler beschreiben oder ein bisschen Source springen lassen...

Greetz
alcaeus

[herrentor]

so funktioniert es auch nicht, was möchtest du den für einen quelltext?

Code:

         begin
          CanSelect:=Not ((ACol=4) and (ARow=i));    
          Tab.Cells[4,i]:=('-');
           try
            mass2:=StrToFloat(Tab.Cells[4,i]);
           except
          end;
         end;

[alcaeus]

Zeig mal den Code, den du vorher hattest. Denn so versuchst du jedes Mal, das Zeichen umzuwandeln das du vorhin hineingeschrieben hast. Ziemlich unsinnig glaube ich mal...

Greetz
alcaeus

[herrentor]

vorher:

Code:

 begin
  CanSelect:=Not ((ACol=4) and (ARow=i));    
 end;