помогите исправить ошибку

[kinza]

у меня задача на типизированный файл...Надо просто напечатать дату в след.виде: 12.3.1967 , 15.6.1945, ну и т.д. я написала код, но есть один косяк. когда я ввожу в Edit - ы числа, при запуске программы они автоматически меняются на другие(в смысле числа)...почему,не понимаю???

procedure TForm1.Button1Click(Sender: TObject);
type data=record
                  end;

var
    fl:TextFile;  //файл
Fname:string[80]; //имя файла
              chi: 1..31;
                 mes: 1..12;
                 god:1900..1999;
begin
Edit1.Text:=IntToStr(chi);
Edit2.Text:=IntToStr(mes);
Edit3.Text:=IntToStr(god);
      Fname:=Edit4.Text;
assignfile(fl,fname);
Append(fl); //открыть для записи в файл

            if (Length(edit1.text)=0) or (Length(edit2.text)=0) or    (Length(edit3.text)=0)

then ShowMessage('Ошибка ввода данных.'


+#13+'Bce поля должны быть заполнены.')

else writeln(fl, edit1.text,'.',edit2.text,'.',edit3.text);

               closefile(fl);  //закрыть файл
MessageDlg('Данные добавлены в файл',mtInformation,[mbOk],0);

end;
end.

[spamer]

Что то такое:

procedure TForm1.Button1Click(Sender: TObject);
var
fl:TextFile;
Fname:string[80];
chi: 1..31;
mes: 1..12;
god:1900..1999;
begin
chi:= StrToInt(Edit1.Text);
mes:= StrToInt(Edit2.Text);
god:= StrToInt(Edit3.Text);
Fname:=Edit4.Text;
assignfile(fl,fname+'.txt');
Append(fl);

if (Length(edit1.text)=0) or (Length(edit2.text)=0) or (Length(edit3.text)=0)

then ShowMessage('Ошибка ввода данных.'


+#13+'Bce поля должны быть заполнены.')

else writeln(fl, chi,'.',mes,'.',god);

closefile(fl);
MessageDlg('Данные добавлены в файл',mtInformation,[mbOk],0);

end;

[kinza]

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

Что то такое:

благодарю конечно за помощь...а вот насчёт быть проще....итак проста как 2 рубля....так что....

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

Что то такое:

и ксттати, я пробовала менять IntToStr на StrToInt.... компилятор выводит какую то ошибку((((

[MalCer]

а вот насчёт быть проще....

Ха ха ха! Это не вам, это просто его подпись!!!

менять IntToStr на StrToInt.... компилятор выводит какую то ошибку((((

IntToStr - преобразовать число в строку
StrToInt - преобразовать строку в число
Конечно у вас так возникнет ошибка!

[kinza]

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

Ха ха ха! Это не вам, это просто его подпись!!!

IntToStr - преобразовать число в строку
StrToInt - преобразовать строку в число
Конечно у вас так возникнет ошибка!

а что же тогда делать???не пойму(((
и спасибо за объяснение насчёт простоты :DDDD

[Stilet]

а что же тогда делать?

Во-первых не работай с типом множества.
Замени chi: 1..31; на chi: word и остальные так же.
Во-вторых : Эти переменные вводить нужно. Ну или как минимум присвой им чего-нить.