Soo, ich hab da nochmal etwas nachgelesen und den Code weiter angepasst. Allerdings hab ich jetzt noch mehr Fehlermeldungen als vorher, und weiß noch weniger wieso...
Hier mal mein Code
Delphi-Quellcode:
function GetMaxFromStringGrid():Integer;
var aRow, max: Byte ;
begin
max:=0;
for aRow:=0 to 6 do
if (Form8.StringGrid1.RowHeights[aRow]>-1) then
begin
if (StrToFloat(Form8.StringGrid1.Cells[1, aRow]) > max) then
max:=StringToFloat(Form8.StringGrid1.Cells[1, aRow]);
end;
Form8.Edit6.Text:= FloatToString(max) ;
end;
Und hier die Fehlermeldungen:
1. Statement expected but 'function' found
2. Undeclared Identifier 'StringToFloat'
3. Undeclared Identifier ' FloatToString'
und dann noch zwei die sich auf den nachfolgenden code beziehen, allerdings ohne das eingefügte nicht kommen:
4. Declaration expected but "If" found (Bezieht sich auf das was unmittelbar nach end kommt)
5. '.' expected but ';' found (bezieht sich auf das procedure end; ganz am ende)
Ich hoffe ihr könnt mir nochmal helfen.
Liebe Grüße Peter