Delphi

Altair86 · Отправлено: **16:08, 05-06-2008** | #2

Цитата Lenich:

str:=StringReplace(str,#32,'',[rfReplaceAll]); »

Можно нубский вопрос: а что на что здесь заменяет функция StringReplace? В делфи не секу

, но в алгоритме попробую разобраться вечером.

Admiral · Отправлено: **16:40, 05-06-2008** | #3

Эта функция заменяет #32 в строчке str на ", а флаг rfReplaceAll указывает найти все найденные. Результат выполнения сохраняет в саму же строчку str.
StringReplace - Функция. Справочник - Основы Delphi

Altair86 · Отправлено: **18:20, 05-06-2008** | #4

Цитата Admiral:

Эта функция заменяет #32 в строчке str на " »

В смысле, это получается удаление пробелов из строчки? #32-- пробел вроде, а '' -- пустая строка?

Altair86 · Отправлено: **16:02, 06-06-2008** | #5

Попробуй в качестве кода для дешифровки использовать ту же программу. Если меня не глючит, должно сработать.

Lenich · Отправлено: **00:49, 07-06-2008** | #6

Altair86, Дружище спасибо тебе большое!!!!

Altair86, есть еще одна проблема... при шифровке появляються лищние точки, не подскажешь еще как избавиться от них?

Admiral · Отправлено: **01:14, 07-06-2008** | #7

Это критично?

Цитата Lenich:

str:=str+'.'; »

Altair86 · Отправлено: **11:37, 07-06-2008** | #8

Цитата Lenich:

при шифровке появляються лищние точки, не подскажешь еще как избавиться от них? »

Не подскажу. Если заранее неизвестно, заканчивалась ли шифруемая фраза точкой, то как определить, все точки лишние или (все-1)? Можно к программе-дешифратору пришить "хвост", считающий точки в конце строки и убирающий либо их все, либо все, кроме одной.

Lenich · Отправлено: **19:12, 08-06-2008** | #9

Всем большое спасибо!!! Очень мне помогли!!!