Vokabeltrainer mit Lazarus

[Anna13]

Hallo ihr,

also ein Troll bin ich nicht, nein, wirklich nicht. Hier der Quelltext:

Delphi-Quellcode:

unit Vokabelt; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)

    Button1: TButton  ;
    Button2: TButton;
    Button4: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Memo1: TMemo;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

     procedure Button4Click(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{$R *.lfm}

{ TForm1 }


procedure TForm1.Button1Click(Sender: TObject);
begin
  MEMO1.LINES.SAVETOFILE('c:\temp\portrai.txt');



end;

 procedure TForm1.Button2Click(Sender: TObject);
 begin
    memo1.lines.loadfromFile('c:\temp\portrai.txt');

 end;

 procedure TForm1.Button4Click(Sender: TObject);
 begin
    MEMO1.LINES.CLEAR;
 end;

end.


end.

Dies ist der vollständige Quelltext. Auf die Gefahr hin, dass ich mich hier nun vollends blamiere. - Danke und Grüße, Anna