[Delphi] waar definieren?

[Verwijderd]

Ik ben bezig met Delphi om een programmaatje te maken dat cijfers van studenten kan inlezen en opvragen uit een teksbestand. Nu probeer ik een file te assignen maar dan krijg ik de error: [Error] invFormUn1.pas(67): Undeclared identifier: 'StudentInfo'

Ik heb zitten zoeken maar weet niet waar ik deze moet identifieen.

Thnx


Onderstaan programmacode die ik heb gemaakt


unit invFormUn1;

interface

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

type
TForm1 = class(TForm)
aStudentnaamLabel: TLabel;
aStudentaamEdit: TEdit;
verzendBtn: TButton;
WisBtn: TButton;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
EindresBtn: TButton;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure verzendBtnClick(Sender: TObject);
procedure WisBtnClick(Sender: TObject);
private
{ Private declarations }
function InvoerOK: Boolean;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
for i:=0 to ComponentCount -1 do
if Components[i] is TEdit then
TEdit(Components[i]).Clear;
end;

function TForm1.InvoerOK: Boolean;
var i: Integer;

begin
Result := False;
for i:= 0 to ComponentCount - 1 do
if Components[i] is TEdit then
if TEdit(Components[i]).Text = '' then
begin
ShowMessage('Niet alle gegevens zijn ingevuld');
Exit;
end;
Result := True;
end;

procedure TForm1.verzendBtnClick(Sender: TObject);

begin
if InvoerOK then
begin
AssignFile(StudentInfo, FileNaam);
if not(FileExists(Filenaam)) then
Rewrite(StudentInfo); //nieuwe file maken
Append(StudentInfo);
WriteLn(StudentInfo,Maakregel);
Showmessage
(Format('Gegevens van %s zijn ingevoerd',
[aStudentnaamEdit.text]));
CloseFile(StudentInfo)
end;
end;

procedure TForm1.WisBtnClick(Sender: TObject);
begin
FormCreate(nil);
end;

end.

[Verwijderd]

euh, begin eens 's met je code tussen tags te zetten
{code=delphi}
...
je code
...
{/code}
en dan {} vervangen door []

dan krijg je iets als

Delphi:

var 
  x, y : integer
begin
   x := 20 * y;
end;

[edit] verkeerd gelezen


Je moet die StudentInfo declaren als file

Delphi:

procedure TForm1.verzendBtnClick(Sender: TObject);
var
  StudentInfo : textfile;
begin
...
...
end;

[ Voor 100% gewijzigd door Verwijderd op 16-12-2003 20:25 ]

[Hu9o]

Rechtstreeks uit de help van Delphi

Delphi:

var 

  F: TextFile;   <============Dit moet jij dus ook doen he!
  S: string;
begin
  if OpenDialog1.Execute then            { Display Open dialog box }
  begin
    AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
    Reset(F);
    Readln(F, S);                        { Read first line of file }
    Edit1.Text := S;                     { Put string in a TEdit control }
    CloseFile(F);
  end;
end;

MEt een beetje proberen was je hier zelf ook achter gekomen

[ Voor 5% gewijzigd door Hu9o op 16-12-2003 20:20 ]

[whoami]

Delphi heeft -zoals hier al opgemerkt werd- een mooie, duidelijke en uitgebreide help, waar je zelf beter eerst eens in zoekt vooraleer het op te geven, en het aan anderen over te laten.
Je post hier je volledige code, in de hoop dat iemand anders ze voor jou vervolledigd, en daar is P&W niet echt voor bedoeld.

Daarnaast bestaat er ook nog zoeits als code-tags, waarmee je je code hier kunt formatteren.

[ Voor 14% gewijzigd door whoami op 16-12-2003 20:47 ]