const
FileName = '1.txt';
var
SL: TStringList;
S: String;
I: Integer;
Item: TListItem;
begin
ListView1.Items.BeginUpdate;
SL := TStringList.Create;
try
ListView1.Items.Clear;
SL.LoadFromFile(FileName);
while SL.Count > 0 do begin
S := Trim(SL[0]);
I := Pos('.', S);
if I > 0 then begin
Delete(S, 1, I + 1);
Item := ListView1.Items.Add;
I := Pos(' ГР', S);
if I = 0 then Item.Caption := S
else begin
Item.Caption := Copy(S, 1, I - 1);
Delete(S, 1, I);
Item.SubItems.Add(S);
end;
end;
SL.Delete(0);
end;
finally
SL.Free;
ListView1.Items.EndUpdate;
end;
end;
Как считать данные из файла и выдать их в окно?
Привет, всем!
Программа на Delphi.
Задача: Надо считать данные из существующего файла (к примеру, текстового) и отобразить их в окне.
Например:
(a)cодержание текст.файла (см. так, как написано):
P.S. [строка с пробелами] - это пустая строка и она присутствует в тексте.
[строка с пробелами]
Курс "Привет, тебе!"
[строка с пробелами]
1. Агафонов Иван ГР-1123
2. Сидоренко Мария ГР-1123
3. Носков Роман ГР-1123
4. Ручкина Яна ГР-1123
[строка с пробелами]
5. Наумов Леонид ГР-7895
6. Красавина Вера ГР-7895
[строка с пробелами]
7. Пасквалина Ляля ГР-9401
[строка с пробелами]
(б) вид окна д.б. таким:
________________________________________
|_______ФИО_______|_________Номер гр_____|
Агафонов Иван ГР-1123
Сидоренко Мария ГР-1123 и т.д.
Проблема состоит в том, как считать все данные из файла, минуя все пустые строки и пробелы, и отобразить их в окне. И,еще какой компонент надо использовать для отображения данных, к примеру, для ini подходит TValueListEditor, а в моем случае какое подойдет? Пробовала использовать TlistView, но не поняла, как вставить данные из файла...
Пожалуйста, помогите мне решить эту задачу. Было бы время, я бы постаралась разобраться, но это нужно срочно...
Заранее благодарю.
Программа на Delphi.
Задача: Надо считать данные из существующего файла (к примеру, текстового) и отобразить их в окне.
Например:
(a)cодержание текст.файла (см. так, как написано):
P.S. [строка с пробелами] - это пустая строка и она присутствует в тексте.
[строка с пробелами]
Курс "Привет, тебе!"
[строка с пробелами]
1. Агафонов Иван ГР-1123
2. Сидоренко Мария ГР-1123
3. Носков Роман ГР-1123
4. Ручкина Яна ГР-1123
[строка с пробелами]
5. Наумов Леонид ГР-7895
6. Красавина Вера ГР-7895
[строка с пробелами]
7. Пасквалина Ляля ГР-9401
[строка с пробелами]
(б) вид окна д.б. таким:
________________________________________
|_______ФИО_______|_________Номер гр_____|
Агафонов Иван ГР-1123
Сидоренко Мария ГР-1123 и т.д.
Проблема состоит в том, как считать все данные из файла, минуя все пустые строки и пробелы, и отобразить их в окне. И,еще какой компонент надо использовать для отображения данных, к примеру, для ini подходит TValueListEditor, а в моем случае какое подойдет? Пробовала использовать TlistView, но не поняла, как вставить данные из файла...
Пожалуйста, помогите мне решить эту задачу. Было бы время, я бы постаралась разобраться, но это нужно срочно...
Заранее благодарю.
кидаешь на форму ListView.... устанавливаешь ListView.ViewStyle := vsReport..... далее добавляешь пару колонок (дабл клик на ListViev.Columns)...
вот тебе код добавления твоих данных.....
если нужны пояснения - пиши.....:p
вот тебе код добавления твоих данных.....
Код:
если нужны пояснения - пиши.....:p
НЕ совсем понял что тебе нужно, но что если элемент Memo, и воспользоваться функцией Memo1.Strings.LoadFromFile, вроде так, давно Дельфи не загружал, да и вообще удалил его...
[QUOTE=Death Knight]НЕ совсем понял что тебе нужно, но что если элемент Memo, и воспользоваться функцией Memo1.Strings.LoadFromFile, вроде так, давно Дельфи не загружал, да и вообще удалил его...[/QUOTE]
Таким образом содержимое файла отобразится со всякими лишними пробелами и пустыми строками
И колонки как в ListView неполучиться сделать в Memo
Таким образом содержимое файла отобразится со всякими лишними пробелами и пустыми строками
И колонки как в ListView неполучиться сделать в Memo
Ну, тогда перед добавлением в форму проверь - не пустая ли строка.
Типа IF s <> '' then добавить ...
Типа IF s <> '' then добавить ...
В догонку. Сорру, невнимательно просмотрел исходник - там есть проверка на наличие текста, ха него отвечает строки
i := Pos('.', S);
IF i > 0 Then ...
i := Pos('.', S);
IF i > 0 Then ...