Scripting-Hilfe: Encoder-Zustände verarbeiten

Deutsch / German Scripts
4

Du hast sl nicht als Variable deklariert, und es fehlt noch so einiges – schau Dir nochmal obigen Link an. (Den zweiten.)

procedure OnEncoderInputToggle(Input: TEncoderInput; NewState: boolean);
var
  sl: TStringList;                        // Das hat gefehlt
begin
  if Input = eiMic then begin             // Input eiMic, Du willst ja das Mikrofon überwachen
    try
      sl := TStringList.Create;
      if NewState = true then
        sl.Add('Mikrofon On Air')         // Hier war 'ne Klammer zuviel
      else
        sl.Add('Mikrofon nicht On Air');  // Rechtschreibfehler korrigiert
      sl.SaveToFile('C:\Users\flori\Desktop\MicON.txt');
    finally
      sl.Free;                            // Das hat auch gefehlt
    end;
  end;
end;

begin                                     // Und das hier auch
end.

Ergänzte Grüße

TSD