Stringgrid Zeilensumme in Label ausgeben

[unchained]

er kompiliert nicht.

http://666kb.com/i/bh0beup4tonmb3lxw.jpg

http://666kb.com/i/bh0bhna9lbdncpj2s.jpg

[edit=mkinzler]Grafik entfernt und dem Beitrag angehängt Mfg, mkinzler[/edit]

[DeddyH]

Und mit welcher Meldung?

[unchained]

pardon, habe die bilder angehängt.

[Fehler] Unit1.pas(525): BEGIN erwartet, aber END gefunden
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

[DeddyH]

Du hast die Funktion ja auch an die völlig falsche Stelle kopiert. Am besten schiebst Du sie gleich unter das {$R.dfm} unter implementation.

[unchained]

Kopiere ich die Funktion:

function GridRowSum(const TheGrid: TStringGrid; RowIndex: integer; IgnoreFixedCols: Boolean = true): double;

an die benannte Stelle werden weitere Fehler angezeigt.
[Fehler] Unit1.pas(140): ';' erwartet, aber '.' gefunden
-------------------------------------------------------------------------------------------------------------
implementation

{$R *.dfm}
function GridRowSum(const TheGrid: TStringGrid; RowIndex: integer; IgnoreFixedCols: Boolean = true): double;

procedure TForm1.Button1Click(Sender: TObject); // Bestellung aufgeben
begin
Label17.Font.Color := clred;





button1.Caption:='Erhalten';
sleep (400);
button1.caption:='Bestellung aufgeben';
inc (anzahl); // Zähler für Kunden

[DeddyH]

Und wenn Du unter Button6Click einmal begin und end schreibst? Die fehlen in der Grafik nämlich.

[unchained]

Grad probiert. Das ändert leider nichts.

[unchained]

ich habs mal komplett angehängt.

[DeddyH]

Du hast die Projektdatei angehängt, nimm stattdessen mal die Unit.

[unchained]

hier die unit