Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TStringList + sLineBreak, Как найти??? 
V
    Опции темы
Rodman
Дата 6.11.2006, 14:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
Дароф...

Написал метод шифрования... 
Код

function SendText(NameFile:string):string;
var tSList:TStringList;
begin
  tSList:=TStringList.Create;
  try
     tSList.LoadFromFile(NameFile);
     Result:=MyCrypte(tSList.Text);///шифрую
  finally
    tSList.Free;
  end;
end;


вот в строке, где идет шифрованиеперебирается весь текст... а в нем есть символ #$A или sLineBreak... он мне портит всю шифровку... как можно его определить, т.е место нахождение в строке??? 

у бить то я его смогу...

Спасибо...


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
anwe
Дата 6.11.2006, 14:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 748
Регистрация: 2.9.2006

Репутация: нет
Всего: 23
А если поставить условие if или, вообще, сначала "подготовить" текст?
PM MAIL   Вверх
Rodman
Дата 6.11.2006, 15:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
anwe, ставил if... но
Код

if((pos(sLineBreak, result))or(pos(#$A, result)))then
  ShowMessage('Yes');


не ловит.... smile 


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
anwe
Дата 6.11.2006, 15:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 748
Регистрация: 2.9.2006

Репутация: нет
Всего: 23
Так pos() возвращает результат Integer Сделай так:
Код

var S:String;
S:=Memo1.Text;
if((pos(sLineBreak, S)>0)or(pos(#$A, S)>0))then
  ShowMessage('Yes');
end;
PM MAIL   Вверх
Matematik
Дата 6.11.2006, 15:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50
Не используй StringList
Тебе нужен TStringStream
PM MAIL WWW ICQ   Вверх
Rodman
Дата 6.11.2006, 15:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
anwe, ну так я же из файла текст беру... Мемо не использую...

Добавлено @ 15:39 
Matematik, попробую...


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Matematik
Дата 6.11.2006, 15:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50
Примерно так, и ничего портится не будет.
Писал тут, мог опечататься
Код

function test(const fileName:AnsiString):AnsiString;
var
  fs    : TFileStream;
  sizef : Integer;
begin
  result := '';
  fs := nil;
  try   
    fs := TFileStream.Create(fileName,fmOpenRead);
    sizef := fs.size;
    SetString(result, nil, sizef);
    fs.Read(Pointer(result)^, sizef);
    //-------------
    // в result содержание файла
    //-------------
  finally
    fs.Free;
  end;
end;
PM MAIL WWW ICQ   Вверх
Romikgy
Дата 6.11.2006, 16:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
шифруй построчно из стринглиста


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Snowy
Дата 7.11.2006, 01:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Или смени метод шифрования, или прибей все переводы строк стрингреплэйсом.
PM MAIL   Вверх
Rodman
Дата 7.11.2006, 13:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
Всем спасибо....  smile 

Попробую...


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0547 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.