Wie zellsensitives Rechnen in StringGrid ?

[EccoBravo]

ich habs

Trick 17 mit Selbstüberlistung.

? Es geht doch wohl nur OnKeyPressed oder OnSetEditText ?

Neiin, es geht ja beides.

siehe meinen Code:

Delphi-Quellcode:

var
  Form1: TForm1;
  Kai : Char;

implementation

{$R *.dfm}
function StrToFloate(wert:String):single;
begin
    if wert ='' then result :=0
    else result := StrToFloat(wert);
end;

procedure TForm1.SG1SetEditText(Sender: TObject; ACol, ARow: Integer;
  const Value: String);
var
    update:boolean;
begin
//
if Kai = #13 then
begin
  Case aRow of
  1: begin
        SG1.Cells[ACol,3]:= FloatToStr(StrToFloate(SG1.Cells[ACol,1])+StrToFloate(SG1.Cells[ACol,2]));
     end;

  2: begin
        SG1.Cells[ACol,3]:= FloatToStr(StrToFloate(SG1.Cells[ACol,1])+StrToFloate(SG1.Cells[ACol,2]));
     end;
  3: begin
        SG1.Cells[ACol,1]:= FloatToStr(StrToFloate(SG1.Cells[ACol,2])+StrToFloate(SG1.Cells[ACol,3]));
     end;
  end;
  end;
end;

procedure TForm1.SG1KeyPress(Sender: TObject; var Key: Char);
begin
 Kai := Key;
end;

end.

Das wars, Danke danke

E. B.