Hallo,
sorry, der Quelltext ist natürlich nicht geheim. Ich wollte das Problem aus meiner Sicht vereinfachen.
Des weiteren habe ich, da ich wie gesagt kein Programmierer bin, mein unprofessionellen Code ein wenig "verstecken" um nicht ausgelacht zu werden.
Aber, was solls. Ich habe es heute morgen plötzlich doch hin bekommen, dachte das gestern schon so probiert zu haben...
Wie Ihr sehen werdet, gehts auch nicht um 3 Splaten sondern um 5 (inkl. Fixrow), relevant sind aber nur 3 Spalten. Zur Zeit scheint es so zu funktionieren:
Delphi-Quellcode:
Procedure TForm1.Zeitenrechner;
var
i: Integer;
begin
For i := 1 to 16 do
If (StringGrid3.Cells[2, i] = '') or (StringGrid3.Cells[3, i] = '') then
next
else
StringGrid3.Cells[2, i] := IntToStr(StrToInt(StringGrid3.Cells[4, i]) - StrToInt(StringGrid3.Cells[3, i]));
end;
Ich hätte es zwar lieber so, aber das geht nicht:
Delphi-Quellcode:
Procedure TForm1.Zeitenrechner;
var
i: Integer;
begin
For i := 1 to 16 do
If (StringGrid3.Cells[2, i] <> '') or (StringGrid3.Cells[3, i] <> '') then
StringGrid3.Cells[2, i] := IntToStr(StrToInt(StringGrid3.Cells[4, i]) - StrToInt(StringGrid3.Cells[3, i]));
end;
Klappt das "ungleich hier nicht?