8. Mai 2008 14:23
lfctSplit(ptxtText : Text[1024];pintPosition : Integer) : Text[1024]
IF pintPosition < 1 THEN
  ERROR('Fehler beim Split!');
lchrTab := 9;
lintPos := STRPOS(ptxtText, FORMAT(lchrTab));
IF pintPosition = 1 THEN
  EXIT(COPYSTR(ptxtText, 1, lintPos - 1))
ELSE
  EXIT(lfctSplit(COPYSTR(ptxtText, lintPos + 1), pintPosition - 1));
8. Mai 2008 14:50
//text  -> TEXT30
//i     -> Int
//char  -> CHAR
//ichar -> int
for i := 1 to strlen(text) do begin
  char := text[i];
  ichar := char;
  message(format(ichar));
end;
8. Mai 2008 15:03
8. Mai 2008 15:20