Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Клуб программистов > Свободное общение
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 29.06.2008, 22:37   #1
Air
Участник клуба Подтвердите свой е-майл
 
Аватар для Air
 
Регистрация: 30.04.2007
Сообщений: 1,297
По умолчанию Функции сохранения TStringList в Ini-файл

Выкладываю наработки, вдруг ещё у кого-то будут проблемы.
Больше ориентировано на TListBox.

Код:
Function EnCodeStringList(SList:TListBox):String;
var s,Text:string; i:integer;
begin
Text:=SList.Items.Text;
for i:=1 to strlen(pchar(Text)) do
 begin
  if Text[i] = #$A then continue;
  if Text[i] = #$D then
   if Text[i+1] = #$A then
    begin
     s:=s+#2;
     continue;
    end;
  s:=s+Text[i];
 end;
Result:=s;
end;

Function DeCodeStringList(Text:String):TStringList;
var s:string; i:integer;
begin
Result:=TStringList.Create;
for i:=1 to strlen(pchar(Text)) do
 begin
  if Text[i] = #2 then
   begin
    s:=s+#13;
    continue;
   end;
  s:=s+Text[i];
 end;
result.Text:=s;
end;
И ни слова про "велосипед", я и так знаю....
Всё гениальное - просто!
Air вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Функции сохранения OutList в Ini-файл Air Свободное общение 0 26.06.2008 17:58
Сортировка в tStringList Altera Общие вопросы Delphi 16 05.03.2008 10:48
TStringList nimf Общие вопросы Delphi 5 15.11.2007 15:44
Проблемма сохранения потоков в файл EvgenMailRu Помощь студентам 1 03.09.2007 13:56
Класс TStringList Pblog Обсуждение статей 0 27.05.2007 02:13