[_Baga_]

Мне нужно из 7-ми Edit-ов прочитать информацию, занести в файл, очистить Edit-ты и так по циклу.......

Код:

Procedure TForm1.Button1Click(Sender:TObject);
const
    n_file = 'c:\rec_file.bin';
Var
    F: File Of TRepp;
    RD: Array[0..200] of TRepp;
    PCount,j,i: integer;
begin  
    AssignFile(F, n_file);
    RD[j].FID := Edit1.Text;
    RD[j].PSurname := Edit2.Text;
    RD[j].PName := Edit3.Text;
    RD[j].PPatronymic := Edit4.Text;
    RD[j].Weight := StrToFloat(Edit5.Text);
    RD[j].Deqt := Edit6.Text;;
    RD[j].FDate := StrToDate(Edit7.Text);
    Writeln(F, RD[j]); ! Здесь выдает ошибку
    CloseFile(F);
    j:=j + 1;
    PCount:=j;
    For i := 0 To ComponentCount-1 Do ! Здесь выдает ошибку
      If Components[i] is TEdit Then
        (Components[i] as TEdit).Text := '';
end;

[lmikle]

1. Файл надо не только назначить (AssignFile), но и открыть (Reset, например).
2. По моему, для типизированных файлов надо пользовать write, а не writeln.
3. По поводу последней ошибки - какая ошибка вылетает? Текст в студию.

[_Baga_]

ComponentCount неизвестный идентификатор, так же Components[i]

[lmikle]

попробуй так:

Код:

  For I := 0 To Self.ComponentCount-1 Do
    If Self.Components[i] Is TEdit Then
      (Self.Components[i] As TEdit).Text := '';

[_Baga_]

Код:

Код:

For I := 0 To Self.ComponentCount-1 Do 
           If Self.Components[i] Is TEdit Then 
             (Self.Components[i] As TEdit).Text := '';

Все равно выдает ошибку Undeclared Identificator Self.

[lmikle]

ЧЕГО???

М-м-м... а может ты это делаешь не в форме (не в методе формы)?
Self дает ссылку на сам объект, которому принадлежит метод. Свойства ComponentCount и Components - это свойства формы. Проверь этот момент.

Ну или весь код в студию.