Lustiges Programm

[if_then_Anweisung]

OK, ich habe dann ne Fehlermeldung eingebaut. Das Programm(samt Fehlermeldung) ist im Anhang.

@taaktak
Dein Prog macht das nach System und hat immer die gleichen Wörter vorne und hinten. Meins hingegen kann vorne und hinten auch das gleiche (in anderem zusammengesetztem)wort haben.

[if_then_Anweisung]

OK, mann kan mir auch die Substantiver per IGM schicken(bitte nur ganze Listen) ich werde die die nicht doppelt sind oben einfügen.

[taaktaak]

Jooo, das wird als Unterschied akzeptiert! :hi: :wink:

[if_then_Anweisung]

gut.

Ich habe übrigens noch nen (diesmal delphi) prog geschrieben woman einzelne Wörter eingibt und die dann in die Liste eingefügt werden. (Sogar alphabetisch sortiert und doppelte raus.

Man benötigt 4 Buttons ein Edit ein Memo sowie ein MainMenu mit den Einträgen öffnen speichern und Ende außerdem noch ein open und save dialog. Hier der Code:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Speichern1: TMenuItem;
    ffnen1: TMenuItem;
    Ende1: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Speichern1Click(Sender: TObject);
    procedure ffnen1Click(Sender: TObject);
    procedure Ende1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var S:TStringList; i,a:integer;
begin
  a:=0;
  For i:=0 to Memo1.Lines.Count-1 do
    If lowercase(Memo1.Lines[i])=lowercase(Edit1.Text) then a:=1;
  If a=0 then Memo1.Lines[Memo1.Lines.Count]:=lowercase(Edit1.Text);
  S:=TStringlist.Create;
  S.Text:=Memo1.Lines.Text;
  S.Sort;
  Memo1.Lines.Text:=S.Text;
  S.Free;
  Edit1.Text:='';
  Form1.ActiveControl:=Edit1;
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_Return then Button1Click(Sender);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  try
    if opendialog1.execute then Memo1.Lines.LoadFromFile(opendialog1.filename);
  except
    Showmessage('Die Datei konnte nicht geöffnet werden.');
  end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  try
    if savedialog1.execute then Memo1.Lines.savetofile(opendialog1.filename);
  except
    Showmessage('Die Datei konnte nicht gespeichert werden.');
  end;
end;

procedure TForm1.Speichern1Click(Sender: TObject);
begin
  Button2Click(Sender);
end;

procedure TForm1.ffnen1Click(Sender: TObject);
begin
  Button3Click(Sender);
end;

procedure TForm1.Ende1Click(Sender: TObject);
begin
  Close;
end;

end.

[jmit]

Zitat:

Zitat von taaktaak

Ok, so funktioniert's. Aber eine erklärende Fehlermeldung, wenn die Datei nicht existiert, wäre schon angebracht - oder?

Stimmt, aber das ist immer dasselbe Problem, keine genaue Beschreibung bzw. noch schlimmer wenn keine Doku beim Programm dabei ist.

[if_then_Anweisung]

Ich habe oben schon ein Programm mit fehlermeldung.