Nucleus » 24 май 2005, 22:49
1 Открытие файла -> запись в переменную наприм. ХРЕНОТЕХТ
2 Перебрать переменную ф-й StrPos
эта ф-я ищет с определленной позиции символ
в переменной и возвращает его позицию относительно начала
переменной.
В нашем случае чтобы выделить слово из текста
мы должны отыскать пробел после него (слова),
а потом скопировать слово в массив (МАССИВ),
после этого удалить из переменной все до найденного пробела
(т.е. найденное слово), и искать дальше.
синтаксис смотри в делфе. Вот наприм
var
ХРЕНОТЕХТ: TEXT;
МАССИВ: array[100000(колич. слов)]: String[20(длина слова)]
ПОЗИЦИЯ,
СЧЕТЧИК: integer;
StrPos(' ', ХРЕНОТЕХТ, ПОЗИЦИЯ);
for i:= 0 to ПОЗИЦИЯ-1 do //-1 т.к. ПОЗИЦИЯ - указывает на поз. пробела!
МАССИВ[СЧЕТЧИК]:= МАССИВ[СЧЕТЧИК] + ХРЕНОТЕХТ;
inc(СЧЕТЧИК);
delete(0,ПОЗИЦИЯ,ХРЕНОТЕХТ) - удаляем слово которое записали в массив оно ведь не нужно уже и маятся меньше
Вот ядро цикла повторяй его пока не будет конец текста
про то когда конец текста не помню но вроде два символа сподряд
идут : #0#0 - точно не помню
3. Вот у тебя получилось:
МАССИВ[1]= Солёный
МАССИВ[2]= Рыжий
МАССИВ[3]= Алмаз
если сделать так МАССИВ[2,1] то должно быть "Р"
далее переводишь в ф-й CHR(TChar) - вроде она
в порядковый номер по алфавиту (незабывай что у компа алфавит около 255 символов прочитай где нибудь про это)
и упорядочиваешь как надо надеюсь ты разберешься
но есть более простой метод
использовать TStrings
ЛИСТИНГ: TStrings;
там инициализируешь его и все такое
далее его надо заполнить
for i:= 0 то СЧЕТЧИК do ЛИСТИНГ.ADD(МАССИВ)
а потом ЛИСТИНГ.SortList и там есть настройки сортировать по убыванию по возрастанию и т.д.
а лучше сразу в МЕМО или РИЧЕДИТ забодяж
......МЕМО.ЛИНЕС.АДД(МАССИВ).....
МЕМО.ЛИНЕС.СОРТИРОВАТЬЛИСТ
надеюсь ты понял и я не зря потратил 30 мин на написание
1 Открытие файла -> запись в переменную наприм. ХРЕНОТЕХТ
2 Перебрать переменную ф-й StrPos
эта ф-я ищет с определленной позиции символ
в переменной и возвращает его позицию относительно начала
переменной.
В нашем случае чтобы выделить слово из текста
мы должны отыскать пробел после него (слова),
а потом скопировать слово в массив (МАССИВ),
после этого удалить из переменной все до найденного пробела
(т.е. найденное слово), и искать дальше.
синтаксис смотри в делфе. Вот наприм
var
ХРЕНОТЕХТ: TEXT;
МАССИВ: array[100000(колич. слов)]: String[20(длина слова)]
ПОЗИЦИЯ,
СЧЕТЧИК: integer;
StrPos(' ', ХРЕНОТЕХТ, ПОЗИЦИЯ);
for i:= 0 to ПОЗИЦИЯ-1 do //-1 т.к. ПОЗИЦИЯ - указывает на поз. пробела!
МАССИВ[СЧЕТЧИК]:= МАССИВ[СЧЕТЧИК] + ХРЕНОТЕХТ[i];
inc(СЧЕТЧИК);
delete(0,ПОЗИЦИЯ,ХРЕНОТЕХТ) - удаляем слово которое записали в массив оно ведь не нужно уже и маятся меньше
Вот ядро цикла повторяй его пока не будет конец текста
про то когда конец текста не помню но вроде два символа сподряд
идут : #0#0 - точно не помню
3. Вот у тебя получилось:
МАССИВ[1]= Солёный
МАССИВ[2]= Рыжий
МАССИВ[3]= Алмаз
если сделать так МАССИВ[2,1] то должно быть "Р"
далее переводишь в ф-й CHR(TChar) - вроде она
в порядковый номер по алфавиту (незабывай что у компа алфавит около 255 символов прочитай где нибудь про это)
и упорядочиваешь как надо надеюсь ты разберешься
но есть более простой метод
использовать TStrings
ЛИСТИНГ: TStrings;
там инициализируешь его и все такое
далее его надо заполнить
for i:= 0 то СЧЕТЧИК do ЛИСТИНГ.ADD(МАССИВ[i])
а потом ЛИСТИНГ.SortList и там есть настройки сортировать по убыванию по возрастанию и т.д.
а лучше сразу в МЕМО или РИЧЕДИТ забодяж
......МЕМО.ЛИНЕС.АДД(МАССИВ[i]).....
МЕМО.ЛИНЕС.СОРТИРОВАТЬЛИСТ
надеюсь ты понял и я не зря потратил 30 мин на написание