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