[MSD]

Здравствуйте мастера. Задам совсем простой для вас вопросик помогите пожалуйста. Как из текстового файла (который лежит допустим C:\1\1.txt)удалить определенные куски текста? К примеру есть файлик с следующим содержимым:

Машина
Вертолет
Лодка
Иван
Копия
Машина
Вертолет
Лодка
Иван
Копия
Крокодил
Собака
Мышь

нужно чтобы из этого файлика удалились все фрагменты текста которые начинаются от слова КОПИЯ и до слова КОПИЯ. т.е. чтобы осталось только (текст может быть произвольным):

Машина
Вертолет
Лодка
Иван
Крокодил
Собака
Мышь


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

[[MASTER]]

Код:

procedure StringCheck;
var
  f:textfile;
  i:integer;
  s:string;
  b:boolean;
  st:array of string;
begin
  AssignFile(f,'1.txt');
  Reset(f);
  b:=true;
  while not(eof(f)) do begin
    readln(f,s);
    if s='Копия' then b:=not(b);
    If b then begin
      If not(s='Копия') then begin
        SetLength(st,(Length(st)+1));
        st[length(st)-1]:=s;
      end;
    end;
  end;
  Rewrite(f);
  for i:=0 to Length(st)-1 do
    writeln(f,st[i]);
  CloseFile(f);
end;

Admin: Пользуемся тегами!

[MSD]

Спасибо огромное....

[MSD]

и еще вопросик написал програмку которая складывает все числа в Edit с параметром Tag=1, компилируется нормально, но после того как жмешь кнопочку сложить вылетает с ошибкой....

Project Project1.exe raised exception class EConvertError with message "" is not valid floating point value.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure CalculateSum(f:TForm; ed:TEdit);

 procedure ChangeDotToComma(var s:string; pp:integer);
  begin
   Delete(s,pp,1);
   Insert(',',s,pp);
  end;

 procedure ChangeCommaToDot(var s:string; pp:integer);
  begin
   Delete(s,pp,1);
   Insert('.',s,pp);
  end;

var
 i,p:integer;
 st:string;
 sum:Real;
begin
 P:=0;
 sum:=0;
 for i:=0 to f.ComponentCount-1 do
  begin
   if (f.Components[i] is TEdit)and
   (f.Components[i].Name<>ed.Name)and
   (f.Components[i].Tag=1) Then
    begin
     st:=(f.Components[i] as TEdit).Text;
     if st<>'' Then
      p:=pos('.',st);
     if p<>0 Then
      ChangeDotToComma(st,p);
     sum:=sum+StrToFloat(st);
     st:=FloatToStr(sum);
     p:=pos(',',st);
     if p<>0 Then
      ChangeCommaToDot(st,p);
     Ed.Text:=st;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CalculateSum(Form1, Edit5);
end;

end.

Что не так подскажите, почему ругается?

[The Shadow]

Ну я код не смотрел, но у тебя видимо в каком-то Edit'е пустое значение.

[MegaPiha]

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

и еще вопросик написал програмку которая складывает все числа в Edit с параметром Tag=1, компилируется нормально, но после того как жмешь кнопочку сложить вылетает с ошибкой....

Project Project1.exe raised exception class EConvertError with message "" is not valid floating point value.


Что не так подскажите, почему ругается?

Че то уж больно сложно у тебя считается сумма пяти элеменов.
Как я понял на форме может быть любое количестово Edit-ов.
По шагам через F8 пробовал искать ошибки? В каком месте ругается?

[The Shadow]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
Res: Real;
begin
Res:=0;
for i:=1 to 6 do
if TEdit(FindComponent('Edit' + IntToStr(i))).Tag = 1 then
Res:=Res + StrToFloat(TEdit(FindComponent('Edit' + IntToStr(i))).Text);
Label1.Caption:=FloatToStr(Res);
end;