проблемы с компеляцией...^^

[PayBack]

Доброго времени суток!Собрал прогу по частям в нете и не компелируется она зараза.Надеюсь на помощь более опытных програмистов


Задание:
Разработать прогу "библиотечный каталог" .
Записи каталога должны содержать поля:раздел,Ф.И.О
автора,название.издательство.год издания


Возможности:
а)добавление.удаление и редактирование записей
б)поиск по каталогу по одному или нескольким полям
в)сортировка результатов,полученных по запросу по любому из
полей,указанных пользователем
код:

unit Laba06.v3;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    Button2: TButton;
    Button3: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
          // Save a TStringGrid to a file 

procedure SaveStringGrid(StringGrid: TStringGrid;const Temp: TTemp );
 var
   f:    TextFile;
   i, k: Integer;
 begin
   AssignFile(f, temp);
   Rewrite(f);
   with StringGrid do
   begin
     // Write number of Columns/Rows 
    Writeln(f, ColCount);
     Writeln(f, RowCount);
     // loop through cells 
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
         Writeln(F, Cells[i, k]);
   end;
   CloseFile(F);
 end;

 // Load a TStringGrid from a file 

procedure LoadStringGrid(StringGrid: TStringGrid; const temp: TTemp);
 var
   f:          TextFile;
   iTmp, i, k: Integer;
   strTemp:    String;
 begin
   AssignFile(f, FileName);
   Reset(f);
   with StringGrid do
   begin
     // Get number of columns 
    Readln(f, iTmp);
     ColCount := iTmp;
     // Get number of rows 
    Readln(f, iTmp);
     RowCount := iTmp;
     // loop through cells & fill in values 
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
       begin
         Readln(f, strTemp);
         Cells[i, k] := strTemp;
       end;
   end;
   CloseFile(f);
 end;


 // Save StringGrid1 to 'c:\temp.txt':

procedure TForm1.Button1Click(Sender: TObject);
 begin
   SaveStringGrid(StringGrid1, 'c:\temp.txt');
 end;

 // Load StringGrid1 from 'c:\temp.txt': 

procedure TForm1.Button2Click(Sender: TObject);
 begin
   LoadStringGrid(StringGrid1, 'c:\temp.txt');
 end;

    procedure TForm1.Button3Click(Sender: TObject);
var R,I: Integer;
begin
for R:= 0 to StringGrid1.RowCount-1 do
begin
i := StringGrid1.Rows[R].IndexOf('Text');
if i>=0 then
begin
StringGrid1.Row:=R;
StringGrid1.Col:=i;
end;
end;
end;

end.

[kisser_san]

ты бы может написал где ругается...

[PayBack]

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

ты бы может написал где ругается...

да конечно,обозначил красным или тридцатая строчка "Temp"

[Airou]

Сразу что бросается в глаза - процедуры не записаны в Type.

[Alter]

Когда вставляете код, неиспользуйте внутри его, постороние теги, они небудут отображаться.

По коду, просто неописана переменная, добавьте:

 var  TTemp :string; {описали TTemp}
  Form1: TForm1;

[PayBack]

Temp-это название файла ,на сколько я понял.

procedure SaveStringGrid(StringGrid: TStringGrid; const Temp: TTemp);
 var
   f:    TextFile;
   i, k: Integer;
 begin
   AssignFile(f, temp);
   Rewrite(f);

Присвоил ей стринг,но ошибка таже

[Квэнди]

какой смысл в процедуру передавать константу ?

[Alter]

Вообще зачем называть его как Ttemp замените на String, и всё, смысл её от этого неизмениться.

[PayBack]

да спасибо!ошибка пропала.Появилась правда в этом участке кода ошибка

// Save StringGrid1 to 'c:\temp.txt':

procedure TForm1.Button1Click(Sender: TObject);
 begin
   SaveStringGrid(StringGrid1, 'c:\temp.txt');
 end;

 // Load StringGrid1 from 'c:\temp.txt':

после TForm1.Button1Click в компиляторе ошибка-" Could not compile used unit "Unit1.pas""

[evg_m]

# procedure TForm1.Button1Click(Sender: TObject);
# begin
# SaveStringGrid(StringGrid1, 'c:\temp.txt');
# end;

Для этой процедуры нет описания в слассе TForm1

в описании надо добавить строчку
procedure Button1Click(Sender: TObject);

и сразу добавлю кроме этого надо будет (после добавления в нужный раздел) еще выбрать ее в качестве обработчика соответствующего события в ObjectInspector