Sprachausgabe

[sECuRE]

Hi,

Zitat von robinWie:

Delphi-Quellcode:

function ReadText(Text: TStrings): Boolean; stdcall;
var
 i: integer;
 Line: string;
 Voice: OLEVariant;
begin
  try
    Voice := CreateOLEObject('SAPI.SpVoice');
    for i:=0 to Text.Count-1 do
      begin
        Line:=Text.Strings[i];
        Voice.Speak(Line, 0);
      end;
    Result:=True;
  finally
    Result:=False; // <--
  end;
end;

Mmh, da kommt doch immer false raus, oder? Bei einem try-except-block wäre das so richtig, hier ergibt es keinen Sinn.

cu