|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
05.12.2007, 11:18 | #21 |
Пользователь
Регистрация: 21.08.2007
Сообщений: 46
|
Я наверное чего-то не понимаю в этой технологии Я думала
SL.LoadFromFile('songs.txt'); считывает только одну запись, Запуталась совсем Последний раз редактировалось nataly_ukr; 05.12.2007 в 18:30. |
05.12.2007, 18:29 | #22 |
Пользователь
Регистрация: 21.08.2007
Сообщений: 46
|
SL.LoadFromFile('songs.txt');
tab:=Chr(9); For x:=0 to SL.Count-1 do begin SL.Delimiter:=tab; SL.DelimitedText:=SL.Text; Readln; end; Поменяла программу , выдает ошибку i/o на строке REadln |
07.12.2007, 13:04 | #23 |
Пользователь
Регистрация: 21.08.2007
Сообщений: 46
|
Люди отзовитесь, проблема не решена !!!!
procedure TForm1.Button1Click(Sender: TObject);
var SL:TStringList; i,x2:integer; tab: char; r1,r2,r3 : string; begin SL:=TStringList.Create; SL.LoadFromFile('songs.txt'); // грузим из файла x2:=SL.Count; Edit1.Text:=IntToStr(x2); // выдало правильно 10 строк // хочу к ним обратиться по одной For i:=0 to x2-1 do begin tab:=Chr(9); SL.Delimiter:=tab; // числа в строке рзделены Tab SL.DelimitedText:=SL.Text; // разбиваем строку на отдельные части // ВСЕГО 5 ЧАСТЕЙ Edit1.Text:=Sl[8]; // ВЫДАЕТ ДАННЫЕ ИЗ СЛЕДУЮЩЕЙ СТРОКИ , ХОТЯ ЕЕ ЕЩЕ НЕ ЧИТАЛИ Readln; // переход на следующую строку ВЫДАЕТ ОШИБКУ I/O ERROR 6 end; end; НАЧАЛО И КОНЕЦ СТРОКИ РАЗДЕЛИТЕЛЬ tab . то есть два подряд TAB между строками Подскажите что не так |
07.12.2007, 22:13 | #24 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
У меня Delphi 7 Rus.
По поводу SL :TStrings, вот что я пишу(и работает без сбоев). Код:
дают переноса(заменяются квадратиками или другими знаками, когда Add(text)). И пишутся в одну строку. Если надо проще, то используйте TMemo. Сделав его невидимым. По поводу Readln здесь, его пользуйте в консоле. И уточните как выглядят данные в файле. Визуально легче понять, что надо. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с текстовым файлом | GazimagomedovM | Помощь студентам | 12 | 17.07.2008 18:24 |
Работа с текстовым файлом | Vasya | Помощь студентам | 28 | 24.01.2008 01:15 |
Работа с текстовым файлом (delphi). Помогите доделать программу. | Snord | Помощь студентам | 1 | 14.12.2007 14:10 |
Работа с текстовым файлом! | Edimus | Общие вопросы C/C++ | 10 | 19.11.2007 10:31 |
Модуль, работа с текстовым файлом | Soul | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 21.05.2007 20:30 |