Форум: "Начинающим";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];
Вниз
Загрузка текстового файла в 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.047 c
