Posted: Tue Aug 14, 2007 10:49 am
Dietmar,
Try this:
Try this:
- Code: Select all Expand view
oText := TTxtFile():New( datei )
FOR x = 1 to len(aSpringer)
oText:Add(SubStr( aSpringer[x,1], 1, At( ".", aSpringer[x,1] ) + 3 ) )
NEXT