Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Приветствую, уважаемые эксперты! Дано текстовый файл, елементами которого есть дробовые числа, а1,а2,а3...аn. Создать файл в котором эти числа будут розмещены, в таком порядке a2,a3...,an,a1.

Вопрос задал: Дементьев Евгений Владимирович (статус: Посетитель) Вопрос отправлен: 2 февраля 2010, 21:30 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Егор

Здравствуйте, Дементьев Евгений Владимирович!
На форму кидаете кнопку (компонент Button) и диалог открытия файла (компонент OpenDialog - на вкладке Dialogs).
Затем делаете двойной щелчок по кнопке и прописываете обработчик:

procedure TForm1.Button1Click(Sender: TObject);
var
  s : string;
  List : TStringList;
begin
  if not OpenDialog1.Execute then exit;
  List := TStringList.Create;
  List.LoadFromFile(OpenDialog1.FileName);
  if List.Count=0 then exit;
  List.Add(List.Strings[0]);
  List.Delete(0);
  List.SaveToFile(OpenDialog1.FileName);
  ShowMessage('Готово');
end;

Ответ отправил: Егор (статус: 10-ый класс) Время отправки: 3 февраля 2010, 10:07 Оценка за ответ: 4

Мини-форум вопроса

min@y™ (статус: Доктор наук), 2 февраля 2010, 21:49 [#1]: И где вопрос? В чём проблема-то? Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Дементьев Евгений Владимирович (статус: Посетитель), 2 февраля 2010, 21:51 [#2]: как это сделать програмнно на делфи?

Егор (статус: 10-ый класс), 2 февраля 2010, 21:53 [#3]: дробовые числа... мда... сильно... )) Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth.

Дементьев Евгений Владимирович (статус: Посетитель), 2 февраля 2010, 21:56 [#4]: мне не на рабочем столе надо создать его а с помощью делфи, и я прошу вас помочь.

Вадим К (статус: Академик), 2 февраля 2010, 23:12 [#5]: так, поподробнее, а причем здесь рабочий стол? Галочка "подтверждения прочтения" - вселенское зло.

Дементьев Евгений Владимирович (статус: Посетитель), 2 февраля 2010, 23:21 [#6]: он тут какраз непричём, мне это нужно сделать програмно.

Егор (статус: 10-ый класс), 3 февраля 2010, 07:22 [#7]: и не в сети надо создать, а на дельфи сеть здесь тоже не при чём ...и php тоже не при чём )))))) Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth.

min@y™ (статус: Доктор наук), 3 февраля 2010, 08:16 [#8]: Может всё-таки суть задачи в том, чтобы переставить первую строку текстового файла в конец, а? Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Дементьев Евгений Владимирович (статус: Посетитель), 3 февраля 2010, 09:56 [#9]: может и так

Дементьев Евгений Владимирович (статус: Посетитель), 20 февраля 2010, 20:49 [#10]: не хотите не помогайте ради Бога, вы же только теряете возможность получить оценку, а я нечего не теряю. мне помогут другие люди.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.