Чтение данных из файла (Delphi 7)

[alxd]

Есть файл users.usr (см. вложение), в нем имеются следующие конструкции
{"UserItemType","Page.1","Иванов_И_ И",""}
{"UserItemType","Page.1","Петров_Г_ А",""}
ну и так далее. Подскажите пожалуйста, как прочитать этот файл. Мне необходимо достать фамилии

[Stilet]

Делаешь переменку типа TStringList. в переменке DelimitedText пихаешь строки и задаешь Delimiter как ',' Тогда обращаясь к переменке как к массиву получаешь поэлементно каждый элемент

подробности смотри в поиске по форуму на слово DelimitedText

[alxd]

Спасибо большое! Сейчас попробую

Попробовал работу с DelimitedText и разделителем. Классно! Только вот что-то я не разобрался, а как записать текст из файла в DelimitedText?

[Stilet]

Ну например процедурой Readln читаешь в строку. а строку присваиваешь в DelimitedText.

[alxd]

Понял, буду разбираться

[alxd]

Сделал так

AssignFile(MyFile, Path + '\users.usr');
Reset(MyFile);
while not EOF(MyFile) do begin
Readln(MyFile, Str);
UsersList.DelimitedText := UsersList.DelimitedText + Str;
end;
CloseFile(MyFile);

В итоге получилось, что свойство DelimitedText равно 'РП,аУ±'

Почему?

[Stilet]

AssignFile(MyFile, Path + '\users.usr');
Reset(MyFile);
while not EOF(MyFile) do begin
 Readln(MyFile, Str);
 UsersList.Delimiter:=',';
 UsersList.DelimitedText := Str;
  UsersList[0] это "UserItemType"
  UsersList[1] это "Page.1"
  UsersList[2] это "Иванов_И_ И"
end;
CloseFile(MyFile);

Так понятнеее?

[alxd]

У меня почему-то получается

UsersList[0] это "РП"
UsersList[1] это "аУ±"

Ну что я не так делаю?

[psycho-coder]

Может кодировка не та?

[alxd]

Сообщение от psycho-coder

Может кодировка не та?

А как проверить?