Problem mit Case

[Thanatos81]

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

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';