Fehlersuche im Quellcode

[CodenameCT]

kann jemand was mit dem quelltext anfangen ??

Delphi-Quellcode:

unit textmenge;

interface

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

type
  TAufbaumenge = SET OF 'A'..'Z';
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Aufbaumenge,Pruefmenge: TAufbaumenge;
  Textanzahl: integer;
  Text: string;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin

Aufbaumenge :=[ ];
Pruefmenge := ['a'..'z'] + ['A'..'Z'];

Textanzahl:=length(edit1.text);
Text:=edit1.text;

for i:=1 to Textanzahl do
begin
if pruefmenge IN text then
        include(Aufbaumenge,Text[i]);
end;


end;

end.

wenn ja was ist der fehler und wo ist er und kann jemand den fehler beheben und es mir sagen was der fehler ist !!

danke !!

[edit=Admin]Code in [ delphi ]-Tags gesetzt und einen passenderen Titel gewählt. Dies bitte künftig selber machen! Danke. Mfg. Daniel[/edit]