ich habe etwas probiert und das läuft auch gut.
das problem ist die Datei, die wo ich alle Wörter gespeichert habe.
erstens die Datei ist eine .txt Datei.
zweitens ich vermute wenn die Datei größer wird, dass dann mein programm auch langsammer wird.
deswegen will ich die Wörter nach reihe in .Dlls packen.
d.h A - D kommen in "A-D.Dll"
E - H kommen in "E-H.Dll"
und wenn ich in Edit feld "Abakus" eintippe soll das programm "A-D.Dll" öffnen und da die Wörter suchen..
Vorstellen kann man aber ob man das auch realizieren kann? ^_^
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
| Procedure Translate(Text : String);
Var Datei : TStringList;
N : Integer;
Close : Boolean;
begin
Datei := TStringList.Create;
Close := true;
Form1.Memo1.Clear;
Datei.LoadFromFile(ExtractFilepath(paramStr(0))+'Wörter.txt');
For N := 0 to Datei.Count-1 do
begin
if pos(Ansilowercase(text),Datei.Strings[N])>0 then
begin
Form1.Memo1.Lines.Add('> '+Datei.Strings[N]);
Form1.Memo1.Lines.Add('');
close := false;
end Else if (N = Datei.Count-1) and (pos(Ansilowercase(text),Datei.Strings[N])<= 0) and (close) then
begin
MessageDlg('No match found',mtwarning,[mbok],0);
exit;
end;
end;
Datei.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
Var Text : String;
begin
Translate(Edit1.Text);
end;
end. |
"Wörter.txt" sieht soO aus.
mutter = mother,mummy,mum
vater = Father,dad,daddy
ect...
MFG
Christian
Moderiert von 
Gausi: Delphi-Tags hinzugefügt
