Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
1963Victor
0 / 0 / 0
Регистрация: 29.10.2014
Сообщений: 134
1

Не могу открыть файл в ListBox

12.12.2015, 11:53. Просмотров 366. Ответов 11
Метки нет (Все метки)

Здравствуйте, не могу открыть файл в ListBox. Заранее благодарю.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
unit Ass;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TMainForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  f:TFileStream;
 
  MainForm1: TMainForm1;
  aa: array[0..4] of integer ;
  
implementation
 
{$R *.dfm}
 
 
procedure TMainForm1.Button1Click(Sender: TObject);
 type mas=array[0..1111] of integer;
 
 var
  Total: Longword;
  OperBegin, OperEnd: TTimeStamp;
  mas1:array of mas;
 
begin
   setlength(mas1,1111);
 
     aa[0]:=0;
     aa[1]:=1;
     aa[2]:=2;
     aa[3]:=3;
     aa[4]:=4;
 
  begin
   f:=TFileStream.Create('C:\filename.txt',fmCreate);
   f.free;
 
   f:=TFileStream.Create('C:\filename.txt',fmOpenReadWrite);
   f.Seek(0,soFromBeginning);
   f.Write(aa,4);
   f.Read(aa,4);
   ListBox1.Items.LoadFromFile('C:\filename.txt');
   f.Free;
  end;
  OperEnd:=DateTimeToTimeStamp(Now);
  Total:=OperEnd.Time-OperBegin.Time;
  
  ListBox1.Items.Add(IntToStr(Total)+' MSec');
end;
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.12.2015, 11:53
Ответы с готовыми решениями:

Открыть только что созданный файл, затем закрыть и отобразить в listbox
как открыть только что созданный файл, затем закрыть и чтоб его название или...

Не могу открыть файл
Здравствуйте. Не могу открыть файл или заново создать. На основную прог. не...

Не могу открыть файл с нужным параметром
Здравствуйте, сегодня решил сделать так, чтобы при нажатии на кнопку, параметр...

Как открыть файл по заданным параметрам? а то сама не могу)
Суть такая: есть 3 комбобокса, по которым выбираются некие параметры... (Размер...

Не могу открыть файл
procedure TForm1.N5Click(Sender: TObject); begin ...

11
krapotkin
3442 / 3045 / 1051
Регистрация: 14.04.2014
Сообщений: 14,762
Записей в блоге: 15
12.12.2015, 13:17 2
перевод с вашего языка на общепринятый:

создаем пустой файл
открываем его
пишем в файл 4 байта (причем все нули)
пытаемся читать с 5-го байта (а что читать, в нем всего 4??)
а потом пытаемся прочитать в ListItems. а он хочет простой текстовый файл, где строки разделены байтом 13

а там напомню 00 00 00 00 и никакого текста
0
NIKOLAYY
819 / 717 / 339
Регистрация: 22.09.2012
Сообщений: 4,995
12.12.2015, 13:20 3
Цитата Сообщение от 1963Victor Посмотреть сообщение
Здравствуйте, не могу открыть файл в ListBox.
Для открытия текстового файла в в ListBox достаточна вот эта строка.

Delphi
1
ListBox1.Items.LoadFromFile('C:\filename.txt');
Но я тут если верно понял сначала требуется сохранить значения массива в файл, а потом его открывать..
0
1963Victor
0 / 0 / 0
Регистрация: 29.10.2014
Сообщений: 134
12.12.2015, 13:31  [ТС] 4
Совершено верно.
0
krapotkin
3442 / 3045 / 1051
Регистрация: 14.04.2014
Сообщений: 14,762
Записей в блоге: 15
13.12.2015, 07:47 5
ну так и сохрани в файл строки
самый простой вариант
Delphi
1
2
3
4
5
list:=TStringList.Create;
for i:=0 to 5 do
  list.Add( IntToStr(I) );
list.savetoFile( FileName );
list.free;
1
1963Victor
0 / 0 / 0
Регистрация: 29.10.2014
Сообщений: 134
15.12.2015, 19:40  [ТС] 6
Спасибо большое.

Добавлено через 1 час 11 минут
Скажите пожалуйста, как мне перегрузить в файл трехмерную матрицу, может так? Заранее благодарю.
Delphi
1
2
3
4
5
6
7
list:=TStringList.Create;
for x:=0 to 1118 do
 for y=0 to 614 do
  for c=0 to 180 do
  list.Add( IntToStr(x,y,c) ); // Компилятор пишет, много аргументов.
list.savetoFile( FileName );
list.free;
Добавлено через 7 минут
Ответ кажется нашел
Delphi
1
2
3
4
5
6
7
8
9
list:=TStringList.Create;
for x:=0 to 1118 do
for y=0 to 614 do
for c=0 to 180 do
list.Add( IntToStr(x) ); 
list.Add( IntToStr(y) ); 
list.Add( IntToStr(c) ); 
list.savetoFile( FileName );
list.free;
Добавлено через 19 минут
Подскажите пожалуйста, как загрузить в файл трехмерную матрицу j array[0..1118,0..613,0..180] of integer , но не для показывания её в ListBox , а только для использования информации.
0
krapotkin
3442 / 3045 / 1051
Регистрация: 14.04.2014
Сообщений: 14,762
Записей в блоге: 15
15.12.2015, 22:56 7
Delphi
1
2
3
4
5
6
for i:=0 to 118 do
for j:=0 to 613 do
for k:=0 to 180 do
begin
  stream.write(arr[i,j,k];
end;
справку по записи и чтению файлов можно почитать
0
NIKOLAYY
819 / 717 / 339
Регистрация: 22.09.2012
Сообщений: 4,995
16.12.2015, 08:26 8
Цитата Сообщение от 1963Victor Посмотреть сообщение
Подскажите пожалуйста, как загрузить в файл трехмерную матрицу
Ее поразому можо грузить. Можно в строку, можно в столбик, но потом и читать (брать из файла) нужно исходя из того как она была сохранена.
0
krapotkin
3442 / 3045 / 1051
Регистрация: 14.04.2014
Сообщений: 14,762
Записей в блоге: 15
16.12.2015, 09:59 9
самый простой вариант - просто прочитать всю разом, если это простой Array[..,..,..] of integer/double/...

Delphi
1
2
3
4
5
6
7
8
9
10
  st:TFileStream;
  arr:array[0..12,0..5] of integer;
begin
  st:=TFileStream.Create('Filename.dat',fmCreate);
  st.Write(arr[0], sizeOf(arr));
  st.Free;
 
  st:=TFileStream.Create('Filename.dat',fmOpenRead);
  st.Read(arr[0], sizeOf(arr));
  st.Free;
0
1963Victor
0 / 0 / 0
Регистрация: 29.10.2014
Сообщений: 134
17.12.2015, 19:37  [ТС] 10
Здравствуйте. Не могу создать файл матрицы b. Заранее благодарю.
unit Ass;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TMainForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
st:TFileStream;
MainForm1: TMainForm1;

b: array[0..600,0..1099] of integer; // Ìàòðèöà êîðäèíàòû òî÷åê íà ýêðàíå â eax.

implementation

{$R *.dfm}


procedure TMainForm1.Button1Click(Sender: TObject);
type mas=array[0..1111] of integer;

var
Total: Longword;
mas1:array of mas;
x,y: integer;


begin
setlength(mas1,1111);

Canvas.Pen.Color:=clBlack;
Canvas.Pen.Width:=1;
Canvas.Brush.Style:=bsClear;
Canvas.MoveTo(50,0);
Canvas.LineTo(0,50);

n:=0;
begin
for y:=0 to 600 do //Ñòðîêà.
begin
for x:=0 to 1100 do //Ñòîëáåö.
begin
if (Canvas.Pixels[x,y]=clBlack) then
begin
b[y,x]:=1;

end;
end;
end;
end;


st:=TFileStream.Create('C:\filename.dat',fmCreate);
st.Write(b[0], sizeOf(b));
st.Free;

st:=TFileStream.Create('Filename.dat',fmOpenRead);
st.Read(b[0], sizeOf(b));
st.Free;

end;
0
krapotkin
3442 / 3045 / 1051
Регистрация: 14.04.2014
Сообщений: 14,762
Записей в блоге: 15
18.12.2015, 16:12 11
просто писать и читать нужно их одного и того же файла
0
1963Victor
0 / 0 / 0
Регистрация: 29.10.2014
Сообщений: 134
19.12.2015, 13:57  [ТС] 12
Спасибо большое. Прошу извинить мою невнимательность.
0
19.12.2015, 13:57
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.12.2015, 13:57

открыть программу из listbox
всем привет. недавно стал изучать делфи, пишу программу: пользователь выбирает...

Нужно по выбору из списка в Listbox открыть html документ без тегов в webbrowser
Нужно по выбору из списка в Listbox открыть html документ без тегов в...

Поток: открыть любой файл, определить его размер и занести в новый файл
очень нужно решить две задачи 1.Создать поток открывающий любой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru