TStrings.LoadFromFile (Error 211)

[VirtUX]

Error 211 выдает отладчик во время попытки загрузить данные из текстового файла в поле класса типа TStrings.

Код: Выделить всё

TMyClass = class(TForm)
  procedure FormCreate(Sender: TObject);
private
  FMyStringList: TStrings;
public
  property MyStringList: TStrings read FMyStringList write FMyStringList;
  function LoadMyList(F: string): integer;
end;
...
procedure TMyClass.FormCreate(Sender: TObject);
begin
  MyStringList := TStrings.Create;
  {пробовал создавать и между Application.FormCreate - Application.Run}
end;

function TMyClass.LoadMyList(F: string): integer;
begin
  Result := -1;
  if FileExists(F) then
    Result := MyStringList.LoadFromFile(F); {на этом месте выделяет и дает ошибку}
end;


[alexs]

TStrings - это абстрактный клас. Используй TStringList

[VirtUX]

TStrings - это абстрактный клас. Используй TStringList

Спасибки - помогло!

Добавлено спустя 1 час 72 минуты 96 секунд:
Теперь RunError(216) при попытке извлеч кол-во загруженных записей

Код: Выделить всё

...
var xL: integer;
begin
...
  xL := MyStringList.Count; {выделяет эту строку}
...
end;


[Attid]

не должно быть такого. ты много туда записей напихал ? как пихал ? если из файла то в какой ОС и какой в файле перенос строки.

[VirtUX]

не должно быть такого. ты много туда записей напихал ? как пихал ? если из файла то в какой ОС и какой в файле перенос строки.

Записей около 30-ти; LoadFromFile; Linux; IBM-866;
Сейчас попробую перекодировать в UTF-8 перед добавлением в список...

Добавлено спустя 10 минут 31 секунду:
Перекодировка из IBM-866 в UTF-8 не помогла.
Причем ругается сразу после "Успешной компиляции" ДО СТАРТА, а ведь еще ничего не загружено из файла!!!

Добавлено спустя 11 минут 12 секунд:
После некоторого пошкрябывания по лысине - перекинул код из обработчика события CheckBoxChangeBounds в обработчик CheckBoxClick и... О чудо! Заработало!
Вывод: ChangeBounds каким-то образом на начальной стадии отладки (до момента реального его вызова) себя реализует. Мот это и должно быть так... Есно будет ошибка, если класс еще не создан!
Всем спасибо!

[Brainenjii]

Не совсем в тему, но - попробовал скомпилить проект в Windows - прекрасно работает UTF-8, и из базы всё замечательно выводится, только вот TStringList.SaveToFile('блаблабла.txt') приводит к крякозяберстым файлам... Если к содержимому притензий нет - так и должно быть, то с именем файла - непонятно ^_^ Конвертировать чтоли название перед сохранением?

[Attid]

Конвертировать чтоли название перед сохранением?

угу, ему то откуда знать какая кодировка в твоей файловой системе считается нормальной =)

[ViTality]

угу, ему то откуда знать какая кодировка в твоей файловой системе считается нормальной =)

он обязан это знать. из параметров операционной системы. и как он до этого определял?

[Attid]

он обязан это знать. из параметров операционной системы. и как он до этого определял?

он не определял, в какой написан в такой и создовал.

5% программ до сих не уммет работать с пробелом в имени файла\папки
и процентов 15% с русскими символами , это в венде, в лине больше. так что использование чего либо кроме латинских букв и цифр в имени файлов это зло.

[ViTality]

А вот вопрос: UTF-8 че бывает разный?(я знаю что он одна из вариаций Unicode) Просто даже если вспомнить /etc/fstab. Там для ntfs разделов указываем какраз UTF-8. и все нормально пишется.и никаких крякозябр в именах фалов нет.

так что использование чего либо кроме латинских букв и цифр в имени файлов это зло.

согласен. вообще придерживаюсь 3 правил:

- НИКАКИХ РУСКИХ БУКВ(транслит наше все, а еще лучше на англицком)
- никаких пробелов(замена на подчеркивание)
- ну и вообще соблюдать досовский стандарт 8.3 (ну это по возможности)

[Attid]

Там для ntfs разделов указываем какраз UTF-8. и все нормально пишется.и никаких крякозябр в именах фалов нет.

нтфс в венде всегда в 1251, если спецально ничего не ломали =), а там ты указываешь в какую кодировку конвертировать , если конечно я все правельно путаю =)

[VirtUX]

UTF-8 че бывает разный?

Одинаковый. В чем замечена разность? Пример?

[ViTality]

Я понимаю что он один. но ненпонимаю почему так получется.
я уже привел пример с нтфс дисками под линь - что все нормально пишется.
и у Brainenjii вместо имени файла кракозябры.

хотя вроде и там и там имена фалов в утф-8.

[alexs]

В винде все файловые операции выполняются средствами библиотек FPC а не Lazarus-а и подразумевают, что имя файла будет передаваться в эти процедуры в кодировке Win1251.
Когда ты работаеш в последних сборках Lazarus-а там веся визуальная часть работаето в кодировке UTF8 и порекодировка текста в win1251 или UCS16 происходит непосредственно перед вызовом функций GUI. Это относится только к библиотекам Lazarus-а.
Получается, что ты передаёш в функцию открытия/ создания файла текст в utf8 - и он напрямую (без перекодировки) отправляется винде.
Я для себя проблему решил простенькой inline функцией перекодировки имён файлов непосредственно перед вызовом функций FPC.
Для примера - попробуй с помощью Writeln что либо записать в текстовый файл - весь русский текст будет в utf8.

[yuray]

Я для себя проблему решил простенькой inline функцией перекодировки имён файлов непосредственно перед вызовом функций FPC.

А можно посмотреть на эту inline функцию?