Schönen guten abend liebe Delphianer

kann mir mal jemand erklären warum ich bei diesem Case eine Fehlermeldung erhalte? ich hab schon die Suche benutzt, und die Borland hilfe, finde aber keinen Grund warum mein Programm fehlerhaft ist

zusammenfalten · markieren

Delphi-Quellcode:

        case rgVisuellerStil.ItemIndex of

        0: fKundenTV.tStil.FieldByName('Name').AsString := 'Weiß';
           fKundenTV.tStil.FieldByName('Hintergrund').AsString := 'G:\[Programmierung]\KundenTV\Grafiken\JPG\Visuelle Stile\Metall.jpg' //Zeile 132
           rgVisuellerStil.ItemIndex := 0;

        1: fKundenTV.tStil.FieldByName('Name').AsString := 'Metall';
           fKundenTV.tStil.FieldByName('Hintergund').AsString := 'G:\[Programmierung]\KundenTV\Grafiken\JPG\Visuelle Stile\Metall.jpg'; //Zeile 135
           rgVisuellerStil.ItemIndex := 1;

        2: fKundenTV.tStil.FieldByName('Name').AsString := 'Schwarz';

Fehlermeldung lautet:

Konstantenausdruck erwartet in Zeile 132 - : erwartet, aber ; erhalten in Zeile 132
Konstantenausdruck erwartet in Zeile 135 - : erwartet, aber ; erhalten in Zeile 135

Hoff jemand weiß wo der Fehler liegt
Danke schon einmal an alle ... Euer f4k3

fKundenTV.tStil.FieldByName('Hintergrund').AsString := ''; o.ä.

Schließ das mal in begin-end-Blöcke ein.

Und was soll Sinn und Zweck dieser Aktion sein?

Versteh ich net ganz ... ich muss, gemäß der Itemindex der Radiogroup ändert sich, den Pfad in der Datenbank ändern.
was deine "Lösung" ja nicht tut. Sie schreibt nichts in die Datenbank, quasi n leeren Pfad, des dann zu Problemen führt wenn ich das Progi ausführ.

Du hast für einen Fall mehrere Befehle, also brauchst du wie von DeddyH bereits erwähnt begin..end-Blöcke:

zusammenfalten · markieren

Delphi-Quellcode:

case rgVisuellerStil.ItemIndex of

        0: begin
             fKundenTV.tStil.FieldByName('Name').AsString := 'Weiß';
             fKundenTV.tStil.FieldByName('Hintergrund').AsString := 'G:\[Programmierung]\KundenTV\Grafiken\JPG\Visuelle Stile\Metall.jpg' //Zeile 132
             rgVisuellerStil.ItemIndex := 0;
           end;

        1: begin
             fKundenTV.tStil.FieldByName('Name').AsString := 'Metall';
             fKundenTV.tStil.FieldByName('Hintergund').AsString := 'G:\[Programmierung]\KundenTV\Grafiken\JPG\Visuelle Stile\Metall.jpg'; //Zeile 135
             rgVisuellerStil.ItemIndex := 1;
          end;

        2: fKundenTV.tStil.FieldByName('Name').AsString := 'Schwarz';

Außerdem fehlt ein Semikolon am Ende von Zeile 132

Wenn du mich meinst, bezog sich meine Antwort auf deinen ursprünglichen Code.

genial

lol ... ja wär vllt. ne überlegung wert auch am späten feierabend sauber zu coden

thX thX thX

Zitat von mkinzler:

Wenn du mich meinst, bezog sich meine Antwort auf deinen ursprünglichen Code.

Ja meinte dich ...

Ja sry is mir erst hinterher aufgefallen, hätte aber nicht zur Problemlösung geführt

trotzdem danke