Lustiges Programm

[if_then_Anweisung]

OK, das hat jetzt nichts mit einer Frage zu tun aber ich habe vor kurzem(nicht in delphi) ein lustiges Prog geschrieben , es liest Wörter aus einer externen Datei aus und setzt die Woerter zusammen. Im Anhang ist die exe.

Hier ist die Wörter liste die ich bisher benutze(wenn euch weitere Wörter einfallen(nur Substantive) könnt ihr sie auch noch posten)

Zitat:

aal
aas
affe
aliuminium
ananas
anspitzer
apfel
ast
auto
ball
bär
becher
bild
blume
brant
buch
chat
computer
drucker
druide
fernbedinung
film
folie
forum
garten
gewehr
gittare
grube
hamburger
handy
haus
himmel
hülle
hund
kafee
katze
keyboard
kissen
klavier
kugel
lamm
lautsprecher
lehm
licht
liebelle
lineal
maus
mehl
mensch
nadel
orgel
papier
patrone
programm
radio
rahmen
roboter
rollschuh
schaffner
schere
schiff
schläger
schmetterling
schrank
stift
stimmer
taschentuch
tee
truck
uhr
verstärker
würfel
zigarette

[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!

[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 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.