Wenn du deinen Kommatext in eine TStringlist lädst, kannst du die Eigenschaften DelimitedText und Delimiter nutzen. Etwa so
Delphi-Quellcode:
function Wort (S :
string ; Nr : integer) :
string ;
begin
with TStringList.Create
do begin
try
Delimiter := '
,' ;
DelimitedText := S ;
if (Nr <= Count-1)
and (Nr >= 0)
then
Result := strings[Nr]
else begin
Result := '
' ;
raise exception.Create (format('
Das Wort %d existiert nicht.',[Nr])) ;
end ;
finally
free ;
end ;
end ;
end ;
Ist eventuell noch anpassungsfähig, grad was die Fehlerbehandlung betrifft