Du kan använda dig av Pos() funktionen för att hitta positionen på tecknen i mellan dina ord. Sen LeftStr() för att korta bort de ord du sparat undan. Förslagsvis använder du en TStringList för att lagra strängarna i.
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
while Pos('-', str) > 0 do
begin
StrList.Add(LeftStr(str, Pos('-', str)-1)); // En TStringList
str := RightStr(str, (Length(str)-Pos('-', str)) ); // Kapa bort redan inlaggt ord
end;
Rättade ett slarvig fel i koden.
[Redigerat av MinOrk den 08 jan 2002]