Witam
Jest to mój pierwszy post na tym forum. Forum przeglądałem już wcześniej ,lecz nie było żadnego tematu, który by mi mógł w stanie pomóc, ale do sedna. Mam zrobić program imieniny i nie wiem w jaki sposób mógłbym wyczytać z pliku ini(posiadam ten plik z imionami), imię na bieżący dzień. Chciałbym, aby w polu Memo wyświetlały się imiona, które mają w danym dniu imieniny. A to jest mój cały kod programu:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ShellAPI, Printers;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Timer1: TTimer;
PrintDialog1: TPrintDialog;
Button3: TButton;
Memo1: TMemo;
Button2: TButton;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Memo1Change(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Close();
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := FormatDateTime('dd/mm/yyyy', Now);
label1.Font.Color := clBlue;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if PrintDialog1.Execute then
begin
printer.BeginDoc;
Form1.Print;
printer.EndDoc;
end;
end;
procedure TForm1.Memo1Change(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('C:\Users\Kun\Desktop\Projekt\imieniny.ini');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.ShowModal;
end;
end.
Z góry dziękuje i pozdrawiam!