Страное событие с ListBox

@саша40 · Регистрация: 14.08.2012

Author24 — интернет-сервис помощи студентам

Привет. При работе программы(ну вы знаете какой) у меня возникла такая ошибочка. Всё дело в том, что если идет воспроизведение при закрытие формы выполняется вот этот код:

Delphi

iif save=true then //сохранение прошло
begin
if mode=play then //воспроивзедение идет
begin
WER:=ComboBox1.ItemIndex;
if WER<0 then exit;
begin
if FileExists(ExtractFilePath(Application.ExeName) + 'Set/Play.ini') then
begin
DeleteFile(ExtractFilePath(Application.ExeName) + 'Set/Play.ini');
AssignFile(f1,ExtractFilePath(Application.ExeName) + 'Set/Play.ini');
Rewrite(f1);
Write(f1,WER);
CloseFile(f1);
end
else
begin
DeleteFile(ExtractFilePath(Application.ExeName) + 'Set/Play.ini');
AssignFile(f1,ExtractFilePath(Application.ExeName) + 'Set/Play.ini');
Rewrite(f1);
Write(f1,WER);
CloseFile(f1);
end;
 
REZ:=ListBox1.ItemIndex;
if REZ<0 then exit;
if FileExists(ExtractFilePath(Application.ExeName) + 'Set/Play1.ini') then
begin
DeleteFile(ExtractFilePath(Application.ExeName) + 'Set/Play1.ini');
AssignFile(f1,ExtractFilePath(Application.ExeName) + 'Set/Play1.ini');
Rewrite(f1);
Write(f1,REZ);
CloseFile(f1);
end
else
begin
AssignFile(f1,ExtractFilePath(Application.ExeName) + 'Set/Play1.ini');
Rewrite(f1);
Write(f1,REZ);
CloseFile(f1);
end;
end;
end;
if (mode=stop) or (mode=pause) or (save=false) then //воспроизведение не идет или сохранение не прошло
begin
DeleteFile(ExtractFilePath(Application.ExeName) + 'Set/Play1.ini');
DeleteFile(ExtractFilePath(Application.ExeName) + 'Set/Play.ini');
end;
end;

И вот из-за этого у меня после старта программы в 1 листбокс образуется дополнительная строка(тем более пустая!). Вопрос: почему?

07.11.2012, 13:07

Слишком всё усложняешь, зачем иметь 2 ini-файла - достаточно одного.

Delphi

  AssignFile(f1, ExtractFilePath(Application.ExeName) + 'Set/Play.ini');
  Rewrite(f1);
  try
    if save then //сохранение прошло
    begin
      if mode = play then //воспроивзедение идет
      begin
        WER := ComboBox1.ItemIndex;
        if WER < 0 then
          Exit;
          
        Write(f1, WER);
 
        REZ := ListBox1.ItemIndex;
        if REZ < 0 then
          Exit;
 
        Write(f1, REZ);
      end;
    end;
  finally
    CloseFile(f1);
  end;
 
  if (mode=stop) or (mode=pause) or (save=false) then //воспроизведение не идет или сохранение не прошло
    DeleteFile(ExtractFilePath(Application.ExeName) + 'Set/Play.ini');

и этот вариант не идеален, может служить только примером.

@DaMortum · 07.11.2012, 13:22

Не по теме:

Сообщение от саша40

Страное событие с ListBox

В слове "Страное" ты либо букву "н" потерял , либо лишнюю "т" вставил.

@саша40 · 07.11.2012, 14:09 **[ТС]**

Ваще-то да. Поидее в переменых находится номер плейлиста и номер песенки в плейлесте. Может переделать кодик, под новый стиль? Попробою. Но вот вопрос по какой причине возникает одна пустая строка в ListBox1 ПРИ СТАРТЕ программы, если сохранение не проводилось?

Добавлено через 19 секунд

Сообщение от DaMortum

Не по теме:

В слове "Страное" ты либо букву "н" потерял , либо лишнюю "т" вставил.

Не по теме:

хахаха :D

07.11.2012, 14:59

Удобнее использовать BlockRead, BlockWrite с соответствующей записью:

Delphi

type
  TMyRecord = record
    WER,
    REZ : Integer;
  end;
 
var
  MyRecord : TMyRecord;
  F : File;
...
begin
  AssignFile(F, ExtractFilePath(Application.ExeName) + 'Set/Play.ini');
  Rewrite(F);
  try
    if save then //сохранение прошло
    begin
      if mode = play then //воспроивзедение идет
      begin
        MyRecord.WER := ComboBox1.ItemIndex;
        MyRecord.REZ := ListBox1.ItemIndex;
        BlockWrite(F, MyRecord, SizeOf(MyRecord));
      end;
    end;
  finally
    CloseFile(F);
  end;
end;

либо

Delphi

var
  F : File of MyRecord;
...
begin
  AssignFile(F, ExtractFilePath(Application.ExeName) + 'Set/Play.ini');
  Rewrite(F);
  try
    if save then //сохранение прошло
    begin
      if mode = play then //воспроивзедение идет
      begin
        MyRecord.WER := ComboBox1.ItemIndex;
        MyRecord.REZ := ListBox1.ItemIndex;
        BlockWrite(F, MyRecord, 1);
      end;
    end;
  finally
    CloseFile(F);
  end;
end;

Чтение сделать аналогично.

@саша40 · 07.11.2012, 15:37 **[ТС]**

Сообщение от angstrom

Удобнее использовать BlockRead, BlockWrite с соответствующей записью:
...
Чтение сделать аналогично.

Отлично. Попробую это. Спасибо. Но вопрос темы другой: В чем причина возникновения пустой строки?

07.11.2012, 17:12

Я думаю пока об этом не стоит заморачиваться. Сделай чтение и запись в один ini-файл через указанную запись. Файл должен получиться размером в 8 байт. Тогда и видно будет.

@Alex_pac · 07.11.2012, 20:33

Привет. При работе программы(ну вы знаете какой) у меня возникла такая ошибочка. Всё дело в том, что если идет воспроизведение при закрытие формы выполняется вот этот код:

О ужас!

вы хоть посмотрите как работают с ini файлами ваще!

@саша40 · 07.11.2012, 20:54 **[ТС]**

Ну
то уже готово. Только всё равно строка образуется.

@mss · 07.11.2012, 21:09

Сообщение от саша40

только всё равно строка образуется

Это потому что "т" лишняя.

@DaMortum · 07.11.2012, 21:48

Может у тебя там изначально пустая строка стоит? Если нет, то покажи как загружаешь данные в ЛистБокс.

@саша40 · 07.11.2012, 22:11 **[ТС]**

При старте они загружаются из файла по выбраному плейлисту. На даннвй момент файлов нет(в папке где должны хранится файлы с данные листбоксов).

@DaMortum · 07.11.2012, 22:21

Если файлов нет, значит, ничего загружаться не должно.

@саша40 · 07.11.2012, 22:32 **[ТС]**

Всё решил. Оказывается в items у листбокс была пропущена пустая строка. Блин как я только это не заметил? Всё спасибо, до новых встречь.

07.11.2012, 22:51

Сообщение от Alex_pac

О ужас!

вы хоть посмотрите как работают с ini файлами ваще!

А кто вам сказал, что речь идёт о TIniFile, или расширение смутило? Так ТС может сменить его, к примеру, на cfg.

@Alex_pac · 08.11.2012, 00:16

Сообщение от angstrom

А кто вам сказал, что речь идёт о TIniFile, или расширение смутило? Так ТС может сменить его, к примеру, на cfg.

а о каком файле идет речь? типизированном ? бинарном без структуры? или просто текстовом?

@Nutserus · 08.11.2012, 00:34

Delphi

if FileExists(ExtractFilePath(Application.ExeName) + 'Set/Play.ini') then
begin
DeleteFile(ExtractFilePath(Application.ExeName) + 'Set/Play.ini');
AssignFile(f1,ExtractFilePath(Application.ExeName) + 'Set/Play.ini');
Rewrite(f1);
Write(f1,WER);
CloseFile(f1);
end
else
begin
DeleteFile(ExtractFilePath(Application.ExeName) + 'Set/Play.ini');
AssignFile(f1,ExtractFilePath(Application.ExeName) + 'Set/Play.ini');
Rewrite(f1);
Write(f1,WER);
CloseFile(f1);
end;

Саша, у тебя логика отсутствует как орган, программирование не для тебя.

08.11.2012, 00:35

Сообщение от Alex_pac

а о каком файле идет речь? типизированном ? бинарном без структуры? или просто текстовом?

В данном случае без разницы.

@саша40 · 08.11.2012, 15:44 **[ТС]**

ВСЁ решилось.Тему закройте.

@DaMortum · 08.11.2012, 15:46

Сообщение от саша40

ВСЁ решилось.Тему закройте.

Отпишись и забудь.

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	07.11.2012, 21:09	10
	Сообщение от саша40 только всё равно строка образуется Это потому что "т" лишняя. 0

@DaMortum
	07.11.2012, 13:22 #3
	Не по теме: Сообщение от саша40 Страное событие с ListBox В слове "Страное" ты либо букву "н" потерял , либо лишнюю "т" вставил. 0

@саша40 157 / 300 / 47 Регистрация: 14.08.2012 Сообщений: 2,578
	07.11.2012, 14:09 [ТС]	4
	Ваще-то да. Поидее в переменых находится номер плейлиста и номер песенки в плейлесте. Может переделать кодик, под новый стиль? Попробою. Но вот вопрос по какой причине возникает одна пустая строка в ListBox1 ПРИ СТАРТЕ программы, если сохранение не проводилось? Добавлено через 19 секунд Сообщение от DaMortum Не по теме: В слове "Страное" ты либо букву "н" потерял , либо лишнюю "т" вставил. Не по теме: хахаха :D 0

@саша40 157 / 300 / 47 Регистрация: 14.08.2012 Сообщений: 2,578
	07.11.2012, 15:37 [ТС]	6
	Сообщение от angstrom Удобнее использовать BlockRead, BlockWrite с соответствующей записью: ... Чтение сделать аналогично. Отлично. Попробую это. Спасибо. Но вопрос темы другой: В чем причина возникновения пустой строки? 0

angstrom
	07.11.2012, 17:12	7
	Я думаю пока об этом не стоит заморачиваться. Сделай чтение и запись в один ini-файл через указанную запись. Файл должен получиться размером в 8 байт. Тогда и видно будет.

@Alex_pac 1302 / 708 / 107 Регистрация: 25.05.2011 Сообщений: 2,158 Записей в блоге: 51
	07.11.2012, 20:33	8
	Привет. При работе программы(ну вы знаете какой) у меня возникла такая ошибочка. Всё дело в том, что если идет воспроизведение при закрытие формы выполняется вот этот код: О ужас! вы хоть посмотрите как работают с ini файлами ваще! 0

@саша40 157 / 300 / 47 Регистрация: 14.08.2012 Сообщений: 2,578
	07.11.2012, 20:54 [ТС]	9
	Ну то уже готово. Только всё равно строка образуется. 0

@DaMortum 249 / 154 / 31 Регистрация: 07.10.2012 Сообщений: 401
	07.11.2012, 21:48	11
	Может у тебя там изначально пустая строка стоит? Если нет, то покажи как загружаешь данные в ЛистБокс. 0

@саша40 157 / 300 / 47 Регистрация: 14.08.2012 Сообщений: 2,578
	07.11.2012, 22:11 [ТС]	12
	При старте они загружаются из файла по выбраному плейлисту. На даннвй момент файлов нет(в папке где должны хранится файлы с данные листбоксов). 0

@DaMortum 249 / 154 / 31 Регистрация: 07.10.2012 Сообщений: 401
	07.11.2012, 22:21	13
	Если файлов нет, значит, ничего загружаться не должно. 0

@саша40 157 / 300 / 47 Регистрация: 14.08.2012 Сообщений: 2,578
	07.11.2012, 22:32 [ТС]	14
	Всё решил. Оказывается в items у листбокс была пропущена пустая строка. Блин как я только это не заметил? Всё спасибо, до новых встречь. 0

angstrom
	07.11.2012, 22:51	15
	Сообщение от Alex_pac О ужас! вы хоть посмотрите как работают с ini файлами ваще! А кто вам сказал, что речь идёт о TIniFile, или расширение смутило? Так ТС может сменить его, к примеру, на cfg.

@Alex_pac 1302 / 708 / 107 Регистрация: 25.05.2011 Сообщений: 2,158 Записей в блоге: 51
	08.11.2012, 00:16	16
	Сообщение от angstrom А кто вам сказал, что речь идёт о TIniFile, или расширение смутило? Так ТС может сменить его, к примеру, на cfg. а о каком файле идет речь? типизированном ? бинарном без структуры? или просто текстовом? 0

angstrom
	08.11.2012, 00:35	18
	Сообщение от Alex_pac а о каком файле идет речь? типизированном ? бинарном без структуры? или просто текстовом? В данном случае без разницы.

@саша40 157 / 300 / 47 Регистрация: 14.08.2012 Сообщений: 2,578
	08.11.2012, 15:44 [ТС]	19
	ВСЁ решилось.Тему закройте. 0

@DaMortum 249 / 154 / 31 Регистрация: 07.10.2012 Сообщений: 401
	08.11.2012, 15:46	20
	Сообщение от саша40 ВСЁ решилось.Тему закройте. Отпишись и забудь. 0