Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> save line to txt file 
:(
    Опции темы
muratboy31
Дата 11.2.2010, 12:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
why it doesnt save the combobox text to rapor.dat file ?

Код

procedure TForm1.spdBtnClick(Sender: TObject);
var
  fileData : TStringList;
  lines, x : Integer;
  saveLine : String;
begin
  saveLine:=sComboBox1.Text;
   fileData := TStringList.Create;
   fileData.LoadFromFile('Rapor.dat');
   lines := fileData.Count;
      for x := lines-1 downto (lines div 2) do
      begin
        saveLine := fileData[lines-x-1];
        fileData[lines-x-1] := fileData[x];
        fileData[x] := saveLine;
      end;
      for x := 0 to lines-1 do
        ShowMessage(fileData[x]);
        fileData.SaveToFile('Rapor.dat');
end;
PM MAIL   Вверх
Mikel
Дата 11.2.2010, 13:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 882
Регистрация: 30.3.2002
Где: Саратов

Репутация: 1
Всего: 2
But it shouldn't save the text from combobox. May be you need this?
Код

procedure TForm1.spdBtnClick(Sender: TObject);
var
  fileData : TStringList;
  lines, x : Integer;
  saveLine : String;
begin
   fileData := TStringList.Create;
   fileData.text:=sComboBox1.Text;
   lines := fileData.Count;
      for x := lines-1 downto (lines div 2) do
      begin
        saveLine := fileData[lines-x-1];
        fileData[lines-x-1] := fileData[x];
        fileData[x] := saveLine;
      end;
      for x := 0 to lines-1 do
        ShowMessage(fileData[x]);
        fileData.SaveToFile('Rapor.dat');
end;



--------------------
...so remember, it's better to burn out than to fade away
PM MAIL ICQ   Вверх
muratboy31
Дата 11.2.2010, 14:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
thanks for helping Mikel but it deletes all the lines in the rapor.dat... i want to add line to rapor.dat from combobox...

i just want it to save combobox.text and save it to rapor.dat... not all combobox items...

before....
in rapor.dat file :
Цитата

Jack
Clair
Michele


after...
combobox.text   :  Blair
in rapor.dat file :
Цитата

Blair
Jack
Clair
Michele



Это сообщение отредактировал(а) muratboy31 - 11.2.2010, 14:18
PM MAIL   Вверх
Mikel
Дата 11.2.2010, 14:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 882
Регистрация: 30.3.2002
Где: Саратов

Репутация: 1
Всего: 2
And why do you invert them? Try this:

Код

procedure TForm1.spdBtnClick(Sender: TObject);
var
  fileData : TStringList;
  lines, x : Integer;
  saveLine : String;
begin
  saveLine:=sComboBox1.Text;
   fileData := TStringList.Create;
   fileData.LoadFromFile('Rapor.dat');
   fileData.Insert(0,saveLine);
   fileData.SaveToFile('Rapor.dat');

   fileData.Free;
end;



--------------------
...so remember, it's better to burn out than to fade away
PM MAIL ICQ   Вверх
muratboy31
Дата 11.2.2010, 14:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
Mikel THANKS ALOOOOOOTTTTTTTTT smile 
perfect help...   smile  


just another question;
is it possible not to save the same text to rapor.dat ?

if there is a text Blair in rapor.dat then dont save it to rapor.dat...

Это сообщение отредактировал(а) muratboy31 - 11.2.2010, 14:29
PM MAIL   Вверх
Mikel
Дата 11.2.2010, 14:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 882
Регистрация: 30.3.2002
Где: Саратов

Репутация: 1
Всего: 2
You may check the index of line to insert in text file before inserting:

Код

procedure TForm1.spdBtnClick(Sender: TObject);
var
  fileData : TStringList;
  lines, x : Integer;
  saveLine : String;
begin
  saveLine:=sComboBox1.Text;
   fileData := TStringList.Create;
   fileData.LoadFromFile('Rapor.dat');
   if fileData.IndexOf(saveLine)=-1
      then begin
         fileData.Insert(0,saveLine);
         fileData.SaveToFile('Rapor.dat');
      end;
   fileData.Free;
end;



--------------------
...so remember, it's better to burn out than to fade away
PM MAIL ICQ   Вверх
muratboy31
Дата 11.2.2010, 14:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
i understand it, thanks alot... 
  smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0506 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.