Помогите перевести на дельфовский язык!!!

← →
Василий2 © (2002-10-14 10:15) [0]

Вот тут функция на C++. Я не знаю что там написано, поэтому прошу всех, кто знает C++ перевести ее на Delphi.

#define END 0x5c //"\"
#define OFFSET 23

...

char *get_token (char *buffer, char *token) {
char *stri, *strf;
strf = strchr(buffer + OFFSET, 0x00);
*strf = END;
if((stri = strstr(buffer + OFFSET, token))) {
stri = stri + strlen(token);
strf = strchr(stri, END);
*strf = 0x00;
}
else return(NULL);
return(stri);
}

← →
Феу © (2002-10-14 11:08) [1]

Кажется, эта мерзость ищет конец строки(символ #00) после первых 24 символов и меняет его на символ #5с ("\"); потом ищет первое вхождение строки token в строку buffer, ищет после него символ #5с ("\") и заменяет на #00 (конец строки в Си), после чего возвращает указатель на начало этого вхождения, если ничего не нашла - возвращает NULL(в Паскале - nil).
Например:
buffer = "abcdefghij/klm"; token = "def";
char *a;
a = get_token(*buffer, *token);
В a будет указатель на строку "defghij"
Что касается перевести на Паскаль, тебе нужен аналог функции для паскалевских строк или точный перевод для нулем законченых?

Большое спасибо!

Помогите перевести на дельфовский язык!!! Найти похожие ветки