Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

Загрузка текстового файла в listview, где ошибка?   Найти похожие ветки 

 
Vitaly00   (2005-10-20 21:47) [0]

Здравствуйте!
Помогите найти ошибку, хочу загрузить текстовый файл в listview:
procedure TForm1.Button5Click(Sender: TObject);
var
       i,j:integer;
       Mytextfile: textfile;
       s: string[12];
begin
       AssignFile(Mytextfile,"Mytextfile.txt");
       Reset(Mytextfile);
               try
                       while not Eof(Mytextfile) do
                       begin
                       Readln(Mytextfile, s,j);
                       for i:=0 to j do
                       begin
                       ListView1.Items.Add.Caption:=inttostr(i);
                       ListView1.Items.Item[i].SubItems.add(S);
                       end;
                       end;
               finally
       Closefile(Mytextfile);
       end;
end;
Заранее, спасибо.


 
vitaly00   (2005-10-20 23:27) [1]

Хочу уточнить, что загружаю файл с текстом:
строка#1
строка#2
строка#3
строка#4
строка#5
строка#6
строка#7
Помогите уже голову сломал


 
beglec ©   (2005-10-21 01:44) [2]

1. Что за ошибка то?  Пойди подскажи то не знаю что.
2. На первый взгляд - определись ты работаешь с Типизированным файлом или с текстовым?

1: if TextFile then var s: string[12] - причем тут ?
2: if Not TextFile then var Mytextfile: textfile - причем тут ?


 
easy ©   (2005-10-21 09:09) [3]

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 Mytextfile: textfile;
 s: string[12];
 item: TListItem;
begin
 AssignFile(Mytextfile, "c:\boot.ini");
 Reset(Mytextfile);
 try
   i := 1;
   while not Eof(Mytextfile) do
   begin
     Readln(Mytextfile, s);
     item := ListView1.Items.Add;
     item.Caption := inttostr(i);
     item.SubItems.add(S);
     inc(i);
   end;
 finally
   Closefile(Mytextfile);
 end;
end;



Страницы: 1 вся ветка

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
2-1129313241
картограф
2005-10-14 22:07
2005.11.13
StringGrid


1-1130164347
Katya2100000000
2005-10-24 18:32
2005.11.13
Лёгкий вопрос


2-1129566424
yura32
2005-10-17 20:27
2005.11.13
IdHTTPServer1


2-1130077522
Vir
2005-10-23 18:25
2005.11.13
MS Excel


4-1126174606
jeka_t
2005-09-08 14:16
2005.11.13
Есть ли функция, которая возвращает "Описание" в "Имени компьютер