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

Работа со строками

06.03.2012, 19:31. Просмотров 409. Ответов 4
Метки нет (Все метки)

дано число К и тестовый файл. вставить пустую строку после строки с номером К, если такой нет то оставить без изменения
Pascal
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
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
var
  f:TextFile;
  i:Integer;
  k:Integer;
 
begin
  k:=edit1.text;
  assignFile(f,'text.txt');
  Reset(f);
  while not eof(f) do
    begin
      i:=i+1;
      readln(f);
    end;
  if i=k then write('') else Readln;
  CloseFile(f);
end;
 
end.

застрял. на этом месте. что не правильно? и как нужно сделать ?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.03.2012, 19:31
Ответы с готовыми решениями:

Работа со строками, заполнить компоненты строками из файла
Привет! Нужна помощь в заполнении формы В общем, есть форма отправки письма. У нее есть 2 функции,...

Работа со строками
Можно с помощью оператора delete удалить строку/слово ? U,S,Q,L : string U:=S+Q+L S:='ewqeqw'...

Работа со строками
Дана строка, содержащая последовательность слов; между соседними словами - пробел, за последним...

Работа со строками
Помогите, ну вообще не пру как сделать,(пж. как нибудь попроще с использованием TComboBox.) Дана...

4
Модератор
60572 / 45566 / 31447
Регистрация: 18.05.2008
Сообщений: 109,517
06.03.2012, 20:24 2
Вставить строку непосредственно в текстовый файл нельзя. Нужно создать новый файл и переписать в него исходный файл, вставив пустую строку.
1
401 / 312 / 74
Регистрация: 17.03.2010
Сообщений: 1,120
06.03.2012, 20:42 3
Цитата Сообщение от Puporev Посмотреть сообщение
Вставить строку непосредственно в текстовый файл нельзя. Нужно создать новый файл и переписать в него исходный файл, вставив пустую строку.
Перефразирую:
Создаешь новый файл, переписываешь в него все до места вставки пустой строки, вставляешь пустую строку, дописываешь остаток файла, удаляешь оригинал, а новый переименовываешь.
Переписываешь в в новый построчно, постоянно проверяя свое условие.
Как то так)
1
5326 / 2038 / 439
Регистрация: 20.11.2009
Сообщений: 6,763
Записей в блоге: 1
06.03.2012, 21:15 4
Цитата Сообщение от NIch Посмотреть сообщение
Перефразирую:
кодом:
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
procedure TForm1.Button1Click(Sender: TObject);
var F, G: TextFile;
    S: String;
    i, k: Integer;
const fn1 = 'file1.txt';
      fn2 = 'file2.txt';
begin
  i := 0;
  k := 3;
  AssignFile(F, fn1);
  Reset(F);
  AssignFile(G, fn2);
  Rewrite(G);
  while not(Eof(F)) do
    begin
      Readln(F, S);
      Writeln(G, S);
      i := i + 1;
      if i = k then
        Writeln(G, #13);
    end;
  CloseFile(F);
  CloseFile(G);
  DeleteFile(fn1);
  RenameFile(fn2, fn1);
end;
примерно вот так вот
1
0 / 0 / 0
Регистрация: 14.01.2012
Сообщений: 42
07.03.2012, 00:06  [ТС] 5
спасибо=)!!!! теперь понятно=)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.03.2012, 00:06

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Работа со строками
Помогите с задачкой.. В задании исходные данные вводить с помощью компонента TEdit в компонент...

Работа со строками
Здравствуйте, я не могу понять как это реализовать :( Мне нужно чтобы было так: Если длинна...

Работа со строками
Проверить одинаковое ли число открытых и закрытых скобок в строке.

Работа со строками
Добрый день, суть задачи такова: "Дан файл, содержащий в каждой отдельной строке фамилию, предмет и...

Работа со строками
Имеются строки в Memo: 1234 12345 123456 1234567 qweq 12345678 123456789 123qwe 1234567890

Работа со строками
Дана строка состоящая из слов, разделенных пробелами. С использованием процедур и функций...


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

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

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