Sowas?
dim arr(-1) as string
dim i as Integer
arr = Split(EditField1.text, EndOfLine.Macintosh)
for i = 0 to Ubound(arr)-1
Speak arr(i)
next
andy
at 01.04.08 14:11, Mike Ott wrote:
> Ciao Andy
>
>> Hm...es kommt halt drauf an, wie lange die Zeile braucht, bis sie ausgegeben
>> ist. Keine Ahnung, wie man einfach herausbekommt, ob die Sprachausgabe schon
>> durch ist. Aber mit einem Timer sind das nur wenige Zeilen Code - oder was
>> meinst Du?
> Was ich meine, hat nichts mit der Sprachausgabe zu tun. Wie schaffe ich es,
> in einem multiline Editfield den gesamten Inhalt zu zerlegen in Einzelteile
> (bis zum jeweiligen Zeilenende)?
>
> Gruss
> Mike
>
>
