Переключения между Edit-ами???

[FantomasRUS]

Подскажите пожалуйста начинающему Delphi-сту, почему у меня эта процедура вызывает ошибку компиляции. Если я описываю в процедуре Edit1,Edit2,Edit3: TEdit, то тогда программа работает вообще не правильно, так как в функцию EditLoad идёт корявое значение Edita. Вообще мне нужно было написать прогу, что бы она по очереди считывала из разных Editов и записала в фаил. Подскажите, в чём у меня ошбка???



unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Edit3: TEdit;
Label3: TLabel;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
F: File;
FileName: string;
Sek: Integer;


implementation

{$R *.dfm}

function LoadEdit(var F: File; Edit: TEdit;var Sek: Integer): Integer;
var
S: Char;
I: Integer;
begin
Result:=0;
S:=#13;
Reset(F,1);
Seek(F,Sek);
for I:=1 to Length(Edit.Text) do
begin //
BlockWrite(F,Edit.Text[I],1); //
end;
BlockWrite(F,S,1);
Result:=I;
CloseFile(F); //
end;

procedure VseEdit(); // Это процедура не хочет работать!!!!
var
A,B: Integer;
begin
A:=0;

for B:=1 to 1 do //
begin
A:=A + LoadEdit(F,Edit1,A);
A:=A + LoadEdit(F,Edit2,A);
A:=A + LoadEdit(F,Edit3,A);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FileName:='Пример.txt';
Edit1.Text:= '';
Edit2.Text:= '';
Edit3.Text:= '';

FileName:='Пример.txt'; //////////
AssignFile(F,FileName); //
if not FileExists(FileName) then // Пример проверки файла на существование,
begin // если его не то его создание
ShowMessage(FileName +' не существует'); //
Rewrite(F,1); //
end; //
//else //
// ShowMessage(FileName+' существует'); ////////////
Reset(F,1);


end;

procedure TForm1.Button1Click(Sender: TObject);
var
{ A,B: Integer;
begin
A:=0;

for B:=1 to 1 do //
begin
A:=A + LoadEdit(F,Edit1,A);
A:=A + LoadEdit(F,Edit2,A);
A:=A + LoadEdit(F,Edit3,A);
end;}
begin
VseEdit;
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//Erase(F);
end;

end.

[vovk]

.....
private
 procedure VseEdit(); 
   { Private declarations }
.......

procedure TForm1.VseEdit();

[Serge_Bliznykov]

procedure TForm1.VseEdit();

ну, или процедуру оставить как есть (не делать её методом класса, но тогда edit'ы надо передавать с указанием формы, где они расположены:

A:=A + LoadEdit(F,Form1.Edit1,A);
A:=A + LoadEdit(F,Form1.Edit2,A);
A:=A + LoadEdit(F,Form1.Edit3,A);

p.s. в реализацию функции LoadEdit мне даже заглядывать страшно.. ;(

p.p.s. FantomasRUS, для оформления кода обязательно используйте тег [СODE] (кнопочка с # ("решёточкой"))


_______________________________
ДОБАВЛЕНО

p.s. в реализацию функции LoadEdit мне даже заглядывать страшно.. ;(

как минимум вместо этого:

for I:=1 to Length(Edit.Text) do
begin //
BlockWrite(F,Edit.Text[i],1); //
end;

рекомендую

BlockWrite(F,Edit.Text[1],Length(Edit.Text));

[FantomasRUS]

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

ну, или процедуру оставить как есть (не делать её методом класса, но тогда edit'ы надо передавать с указанием формы, где они расположены:

A:=A + LoadEdit(F,Form1.Edit1,A);
A:=A + LoadEdit(F,Form1.Edit2,A);
A:=A + LoadEdit(F,Form1.Edit3,A);

p.s. в реализацию функции LoadEdit мне даже заглядывать страшно.. ;(

p.p.s. FantomasRUS, для оформления кода обязательно используйте тег [СODE] (кнопочка с # ("решёточкой"))


_______________________________
ДОБАВЛЕНО

как минимум вместо этого:рекомендую

BlockWrite(F,Edit.Text[1],Length(Edit.Text));

Спасибо большое!!! Респект за оперативность. Просто иногда сталкиваюсь с трудностями и не могу их ни как решить

[FantomasRUS]

А как тогда мне считать 2 байта со значением #13#10?

procedure ClearLine(Line: Integer);
  var S: string;
      B: Integer;
  begin
  B:= 0;
  Reset(F,2);
  while BlockRead(F,S,2)<>#13#10 do
  Inc(B);
  end;

Вообще хочу реализовать функцию , или процедуру которая переходит на заданную строку и стирает её.