В чем ошибка? - delfcode
Четверг, 08.12.2016, 01:15 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024 
delfcode » Delphi » Вопросы по Delphi » В чем ошибка?
В чем ошибка?
GReIIIHuKДата: Понедельник, 20.02.2012, 19:16 | Сообщение # 1
Участник
Зарегистрирован: 15.05.2011
Группа: Пользователи
Сообщений: 98
Статус: Offline
Code

function ExtractCharSetFromPageContent(fBuffer: string): string;
const
    c_DELIM = ';';
    c_charset = 'charset=';
var
    CutBuffer: TStringList;
    posDelim: Integer;
    strEnum: string;
begin
    result := 'windows-1252';
    CutBuffer := TStringList.create;
    try
      // cut the response into lines inside cutbuffer string list
      while (fBuffer <> '') do
      begin
        posDelim := Pos(C_delim, fBuffer);
        if (posDelim > 0) then
        begin
          CutBuffer.Add(Trim(copy(fBuffer, 1, posDelim - 1)));
          Delete(fBuffer, 1, posDelim);
        end
        else
        begin
          CutBuffer.Add(Trim(fBuffer));
          fbuffer := '';
        end;
      end;
      // look for a line with charset
    [b]  for strEnum in CutBuffer do
        if (Pos(c_charset, strEnum) > 0) then
        begin[/b]
          Result := Copy(strEnum,
            Pos('=', strEnum) + 1,
            Length(strEnum));
        end;
    finally
      FreeAndNil(CutBuffer);
    end;
end;

Устанавливаю компонент NewAC на дельфи 7 и вечно выходит ошибка на этой функции.


Skype:"greiiihuk."


Да, я преступник. Мое преступление — любопытство.
Быть может умру я, умрут многие, но идея останется жить навсегда.
Я работаю не только за спасибо.(+) ©


Сообщение отредактировал GReIIIHuK - Вторник, 21.02.2012, 11:25
 
Волк-1024Дата: Вторник, 21.02.2012, 12:50 | Сообщение # 2
Авторитетный
Зарегистрирован: 24.07.2011
Группа: Модераторы
Сообщений: 467
Статус: Offline
На какой строке вышибает ошибка? И лучше скинь сам компонент.

Pascal, C\C++, Assembler, Python
 
GReIIIHuKДата: Вторник, 21.02.2012, 18:31 | Сообщение # 3
Участник
Зарегистрирован: 15.05.2011
Группа: Пользователи
Сообщений: 98
Статус: Offline
Компонент - http://symmetrica.net/newac/newac261.zip
Ошибка происходит в этой части кода:


P.S. эта функция в самом компоненте.
Прикрепления: 0808856.png(3Kb)


Skype:"greiiihuk."


Да, я преступник. Мое преступление — любопытство.
Быть может умру я, умрут многие, но идея останется жить навсегда.
Я работаю не только за спасибо.(+) ©


Сообщение отредактировал GReIIIHuK - Вторник, 21.02.2012, 18:32
 
Волк-1024Дата: Среда, 22.02.2012, 00:05 | Сообщение # 4
Авторитетный
Зарегистрирован: 24.07.2011
Группа: Модераторы
Сообщений: 467
Статус: Offline
Хмм... Странный цикл... Впервые вижу что бы в циклах использовались строковые переменные.

Походу этот код не для Delphi 7. Скорее всего для более новых версий... Хотя хз.


Pascal, C\C++, Assembler, Python

Сообщение отредактировал Волк-1024 - Среда, 22.02.2012, 00:06
 
GReIIIHuKДата: Среда, 22.02.2012, 11:56 | Сообщение # 5
Участник
Зарегистрирован: 15.05.2011
Группа: Пользователи
Сообщений: 98
Статус: Offline
Если ты прав, то это довольно печально. Предлагаешь скачать 2010?

Skype:"greiiihuk."


Да, я преступник. Мое преступление — любопытство.
Быть может умру я, умрут многие, но идея останется жить навсегда.
Я работаю не только за спасибо.(+) ©
 
Волк-1024Дата: Среда, 22.02.2012, 17:14 | Сообщение # 6
Авторитетный
Зарегистрирован: 24.07.2011
Группа: Модераторы
Сообщений: 467
Статус: Offline
Я не предлагаю. Я лишь предпологаю biggrin biggrin biggrin

Pascal, C\C++, Assembler, Python
 
GReIIIHuKДата: Среда, 22.02.2012, 17:19 | Сообщение # 7
Участник
Зарегистрирован: 15.05.2011
Группа: Пользователи
Сообщений: 98
Статус: Offline
Бедная моя 7-ка... Как же я ей это сообщу?

Skype:"greiiihuk."


Да, я преступник. Мое преступление — любопытство.
Быть может умру я, умрут многие, но идея останется жить навсегда.
Я работаю не только за спасибо.(+) ©


Сообщение отредактировал GReIIIHuK - Среда, 22.02.2012, 17:19
 
delfcode » Delphi » Вопросы по Delphi » В чем ошибка?
Страница 1 из 11
Поиск:

delfcode.ru © 2008 - 2016 Хостинг от uCoz