Работа с файлами

@alex-leon1 · Регистрация: 01.06.2011

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

Сформировать главное меню для работы(открытие,внесение,изменение,обработка,сохра нение и т.д.) с файлами, использовать компонент страницы dialogs, диалоговые окна для вывода всевозможных значений.Отобразить содержимое исходного и переделанного файла в компоненте Memo.
Само задание: Дан файл f, компоненты которого являются действительными(целые) числами.Запишите в файл g компоненты файла f, добавляя после каждого элемента запятую. Найдите и запишите в файл g кол-во отрицательных и положительных элементов файла f,а также их сумму.

Поработал с этим заданием и пришел в замутнение.
Сделал диалоговое окно(отрываем файл,всё показывается в первое мемо,после можно эти данные сохранить в другой файл,тоже работает,спрашивается следующие "добавляя после каждого элемента запятую. Найдите и запишите в файл g кол-во отрицательных и положительных элементов файла f,а также их сумму." )

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ComCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    MemoBase: TMemo;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    N12: TMenuItem;
    Label1: TLabel;
    procedure ClickSave(Sender: TObject);
    procedure ClickOpen(Sender: TObject);
    procedure ClickExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  i:integer; checker:boolean;
implementation
 
{$R *.dfm}
 
 
 
procedure TForm1.ClickOpen(Sender: TObject);
begin
OpenDialog1.Execute;
memoBase.Lines.loadfromfile(opendialog1.FileName);
end;
 
procedure TForm1.ClickSave(Sender: TObject);
begin
SaveDialog1.Execute;
memoBase.Lines.SaveToFile(savedialog1.FileName);
end;
 
{--------------------------------------------------}
procedure TForm1.ClickExit(Sender: TObject);
begin
close;
end;
 
end.

@alex-leon1 · 03.02.2012, 14:16 **[ТС]**

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

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ComCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    MemoBase: TMemo;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    MemoResult: TMemo;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    Button4: TButton;
    procedure ClickSave(Sender: TObject);
    procedure ClickOpen(Sender: TObject);
 
    procedure ClickSaveResult(Sender: TObject);
    procedure ClickExit(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  max,min,sred:integer;
  a:array[1..20] of integer;
  i:integer;
implementation
 
{$R *.dfm}
 
{---------------------------------------------------}
procedure TForm1.N8Click(Sender: TObject);
begin
randomize;
for i:=1 to 20 do
begin
a[i]:=random(200)-100;
MemoBase.Lines.add(IntToStr(a[i]));
end;
end;
 
procedure TForm1.N9Click(Sender: TObject);
var
  otric:integer;
begin
  otric:=0;
max:=a[i];
for i:=0 to 20 do
if a[i]<0 then
begin
max:=a[i];
Inc(otric);
end;
  memoResult.Lines.Add('Отрицательные = '+IntToStr(otric));
end;
 
procedure TForm1.N10Click(Sender: TObject);
var
  pol:integer;
begin
  pol:=0;
max:=a[i];
for i:=0 to 20 do
if a[i]>0 then
begin
max:=a[i];
Inc(pol);
end;
  memoResult.Lines.Add('Положительных = '+IntToStr(pol));
end;
 
procedure TForm1.N11Click(Sender: TObject);
begin
sred:=0;
for i:=0 to 20 do
begin
sred:=sred+a[i];
end;
memoResult.Lines.Add('Сумма всех чисел = '+inttostr(sred));
end;
 
{----------------------------------------------}
procedure TForm1.ClickOpen(Sender: TObject);
begin
OpenDialog1.Execute;
memoBase.Lines.loadfromfile(opendialog1.FileName);
end;
 
procedure TForm1.ClickSave(Sender: TObject);
begin
SaveDialog1.Execute;
memoBase.Lines.SaveToFile(savedialog1.FileName);
end;
 
procedure TForm1.ClickSaveResult(Sender: TObject);
begin
SaveDialog1.Execute;
memoResult.Lines.SaveToFile(savedialog1.FileName);
end;
 
{--------------------------------------------------}
procedure TForm1.ClickExit(Sender: TObject);
begin
close;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
var
n:Integer; st:string;
begin
for i:=0 to 20 do
begin
MemoResult.Lines.Add(inttostr(a[i])+',');
end;
end;
 
end.

ФАЙЛЫ1.rar

@alex-leon1 · 03.02.2012, 19:14 **[ТС]**

Сообщение от alex-leon1

procedure TForm1.Button4Click(Sender: TObject);
var
n:Integer; st:string;
begin
for i:=0 to 20 do
begin
MemoResult.Lines.Add(inttostr(a[i])+',');
end;
end;

Кто-нибудь подскажите как удалить "перенос на след. строку".
Пробовал командой делете и пос, не срабатывает.

@alex-leon1 4 / 4 / 2 Регистрация: 01.06.2011 Сообщений: 42
	03.02.2012, 19:14 [ТС]	3
	Сообщение от alex-leon1 procedure TForm1.Button4Click(Sender: TObject); var n:Integer; st:string; begin for i:=0 to 20 do begin MemoResult.Lines.Add(inttostr(a[i])+','); end; end; Кто-нибудь подскажите как удалить "перенос на след. строку". Пробовал командой делете и пос, не срабатывает. 0

Опции темы