Hello I have a question for delphi, Its annoying me because I keep getting I/0 errors, "File not found" its annoying and It wont stop
procedure TForm1.BtnSaveClick(Sender: TObject);
var
F, E, Level: TextFile;
sName, sSur, sEmail, sTelKid, sMom, sDad, sTelMom, sTelDad, sLs, sSchool, sSchoolTel, sSchoolEmail: String;
begin
sName:=EdtName.text;
sSur:=EdtSur.text;
sEmail:=EdtEmail.text;
sTelKid:=EdtTelKid.text;
sTelMom:=EdtTelMom.text;
sTelDad:=EdtTelDad.text;
sSchool:=EdtSchool.Text;
sSchoolTel:=EdtSchoolTel.Text;
sSchoolEmail:=EdtSchoolEmail.Text;
sMom:=EdtMum.Text;
sDad:=EdtDad.Text;
sLs:=ClevelS.Text;
AssignFile(E, 'Config\list.txt');
append(E);
Writeln(E,sName + ' ' + sSur);
CloseFile(E);
CBSearch.Items.LoadFromFile('Config\list.txt');
CBSearch.Items.SaveToFile('Config\list.txt');
AssignFile(F, 'Students\' +sName+ ' ' +sSur+ '.txt');
Rewrite(F);
WriteLn(F, ' ' +sSchool);
WriteLn(F);
WriteLn(F, ' Correo Electronico: ' +sSchoolEmail);
WriteLn(F);
WriteLn(F, ' Numero de telefono: ' +sSchoolTel);
WriteLn(F);
WriteLn(F, '_____________________________________________________________');
WriteLn(F, '_____________________________________________________________');
WriteLn(F);
WriteLn(F, ' NOMBRE: ' +sName);
WriteLn(F);
WriteLn(F, ' APPELIDOS: ' +sSur);
WriteLn(F);
WriteLn(F, ' EMAIL: ' +sEmail);
WriteLn(F);
WriteLn(F, ' TELEFONO DE ESTUDIANTE: ' +sTelKid);
WriteLn(F);
WriteLn(F, ' TELEFONO DE '+sMom+' : ' +sTelMom);
WriteLn(F);
WriteLn(F, ' TELEFONO DE '+sDad+' : ' +sTelDad);
WriteLn(F);
Closefile(F);
Assignfile(Level, 'Levels\' +sName+ ' ' +sSur+ '.txt');
rewrite(Level);
______________________________________________________________________________________
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
crashes at this point
______________________________________________________________________________________
WriteLn(Level,'NIVEL DE LENGUAJE: ' +sLs);
CloseFile(Level);
imgStudent.Picture.SaveToFile('Data\'+sName+' '+sSur+'.jpg');
end;
What I have tried:
I have tried appending it, rewriting it, resetting it, I have even tried indepent "Start/end;"'s , I am at my wits end right now... PLEASE HELP ME
If you are interested, This is the error message from the event log:
First chance exception at $777540F8. Exception class EInOutError with message 'Invalid filename'. Process Project1.exe (1060)