-
Forum: Sonstige Fragen zu Delphi
by Delphi-Narr,
26. Okt 2009
Hm... Wäre es nicht sinnvoll, die Processmessages bei jeder Schleife zu durchlaufen?
Also ich hab mal einen Versuch gemacht:
Ich habe die SL geladen und dann in ein MEmo geladen (1,5 Mio Zeilen)-
hab damit gerechnet, dass es länger dauert, aber nicht soooo lange. Nach 2 1/2 Minuten hab ich das ganze dann abgebrochen.
Deshalb: Ist es möglich, das ganze ein wenig schneller zu laden? Mit...
-
Forum: Sonstige Fragen zu Delphi
by Delphi-Narr,
26. Okt 2009
Also statt SucheD ListeD hinschreiben?
Kennt er trotzdem nicht. :(
-
Forum: Sonstige Fragen zu Delphi
by Delphi-Narr,
26. Okt 2009
var
i:integer;
Position:integer;
start,stop:longint;
begin
ListeD.Clear;
ListeE.Clear;
SucheD.BeginUpdate;
try
for i:=0 to SL.Count-1 do
-
Forum: Sonstige Fragen zu Delphi
by Delphi-Narr,
26. Okt 2009
Das mit den bisherigen Ergebnissen filtern hatte ich auch schon überlegt, aber der braucht ja 20 Sekunden, bis er die Suche nach 'H' abgeschlossen hat.
Wenn ich nach 5 Sekunden 'a' drücke, dann sind die Suchergebnisse der letzten 15 Sekunden nicht dabei und der durchsucht nur die bisherigen Funde... Mit dem alphabetisch sortieren guck ich mir mal an...
Wäre es eventuell sinnvoll, die Liste am...
-
Forum: Sonstige Fragen zu Delphi
by Delphi-Narr,
25. Okt 2009
Die Listen sind Listboxes, ListeD ist die, wo die Deutschen Wörter drinstehen und die andere die mit den Englischen
Also ich möchte, dass OnChange gesucht wird, also beim verändern die aktuelle Suche beendet wird und dafür die neue gestartet wird - mit einem Buchstaben mehr.
Also:
H ->Suche wird gestartet
Dann WÄHREND der Suche noch das a
Suche nach H wird abgebrochen und mit Ha neu...
-
Forum: Sonstige Fragen zu Delphi
by Delphi-Narr,
25. Okt 2009
var
i:integer;
SL:TStringlist ;
Position:integer;
begin
ListeD.Clear;
ListeE.Clear;
Sl:=TStringlist.Create;
SL.LoadFromFile('C:\Users\Neu.txt');
for i:=0 to SL.Count-1 do
-
Forum: Sonstige Fragen zu Delphi
by Delphi-Narr,
25. Okt 2009
Hab oben noch eine Änderung gemacht...
Aber wenn man jetzt nach walk sucht, findet er nichts, weil die Zeile mit (to) beginnt...
-
Forum: Sonstige Fragen zu Delphi
by Delphi-Narr,
25. Okt 2009
Ja, ist korrekt.
Wenn ich jetzt noch ein Wörterbuch machen will, also mit Suche, wie mach ich das?
Ich Hab ein Editfeld und OnChange soll nach der ersten Zeile gesucht werden, die diese Zeichenfolge enthält.
Also wenn man Autob, so soll dann direkt auch Autobus gefunden werden... Das ist mit IndexOf ja nicht möglich...
Es wär auch ganz schön, wenn man Links und rechts jeweils eine...
-
Forum: Sonstige Fragen zu Delphi
by Delphi-Narr,
25. Okt 2009
Jo, und am Anfang muss ich i=0 setzen.
Jetzt sollte es klappen, ich guck mal was jetzt mit der großen Datei passiert
Edit:
So ich würd mal sagen, dein erster Code hatte auch irgendeinen Fehler...
5 Sekunden und das Teil war durch... 1,5 Mio Zeilen^^
-
Forum: Sonstige Fragen zu Delphi
by Delphi-Narr,
25. Okt 2009
Oh, da muss ich wohl das zweite .Text auch noch ersetzen...
-
Forum: Sonstige Fragen zu Delphi
by Delphi-Narr,
25. Okt 2009
var
SL:TStringlist;
i:integer;
begin
if FileExists(vOrt) then
begin
SL := TStringList.Create;
{ProgressBar1.Step:=SL.Count-1;}
try
SL.LoadFromFile(vOrt);//Datei wird in die Liste geladen
-
Forum: Sonstige Fragen zu Delphi
by Delphi-Narr,
25. Okt 2009
Also man kann nicht für SL.text Sl einsetzen, sodass sich das nur auf die eine Zeile bezieht?
-
Forum: Sonstige Fragen zu Delphi
by Delphi-Narr,
25. Okt 2009
Ich hatte überlegt, einen Balken zu benutzen. Also am ehesten eine ProgressBar, aber der führt diesen Befehl doch direkt aus, oder:
try
SL.LoadFromFile(vOrt);//Datei wird in die Liste geladen
SL.Text := StringReplace(SL.Text,' :: ',sLineBreak,);
SL.SaveToFile(vZiel);
finally
-
Forum: Sonstige Fragen zu Delphi
by Delphi-Narr,
25. Okt 2009
Das läuft jetzt schon seit einer Stunde...
Im Taskmanager steht Keine Rückmeldung
Liegt das daran, dass sich das Prog in einer elend langen Prozedur befindet und während einer Aufgabe keine Rückmeldung gibt? CPU ist die ganze Zeit bei 100%...
-
Forum: Sonstige Fragen zu Delphi
by Delphi-Narr,
25. Okt 2009
Da bin ich ja mal gespannt... Ich leg mal die Stoppuhr daneben :)
Danke!
-
Forum: Sonstige Fragen zu Delphi
by Delphi-Narr,
25. Okt 2009
Ah, mir fehlten die Werte für den Umbruch... Danke.
Weißt du, wie lange das bei ca. 750000 Zeilen dauern wird? Die .txt ist 7.5 MB groß.
-
Forum: Sonstige Fragen zu Delphi
by Delphi-Narr,
25. Okt 2009
Sieht gut aus, nur kennt mein Delphi sLineBreak nicht, muss ich da was bei uses hinzufügen?
@himitsu:
Ich hab das Programm zum Anfragen ja fertig, muss also nur noch die entsprechende Datei laden. Außerdem ist das für selbsterstellte Dateien einfacher, da diese ' :: ' schon nervig sind, wenn du die immer schreiben musst.
-
Forum: Sonstige Fragen zu Delphi
by Delphi-Narr,
25. Okt 2009
Nee, Notepad geht, hatte noch einen anderen Editor benutzt
Hab jetzt also Deutsch::Englisch
Jetzt möchte ich mir ein Programm machen, dass diese Datei einmal komplett umschreibt.
var
i:integer;//Zählt die Zeilen
i2:integer;//Zählt in den Zeilen von Zeichen zu Zeichen
-
Forum: Sonstige Fragen zu Delphi
by Delphi-Narr,
24. Okt 2009
@himitsu: Die benutze ich schon. Der Benutzer kann auch eine eigene Datei erstellen usw. Nur habe ich keine Lust die Dateien alle selber zu machen. Prinzipiell klappt das ja.
Ich guck mal mit dem Hex nach...
-
Forum: Sonstige Fragen zu Delphi
by Delphi-Narr,
23. Okt 2009
Hi, ich wusste nicht genau, wohin mit diesem Beitrag...
Also ich habe mit Delphi 5 einen Vokabektrainer programmiert. Beim Start greift dieser auf eine Datei zu, in der die abzufragenden Vokabeln gespeichert sind.
Gespeichert wird folgendermaßen:
DeutschEnglischDeutsch.txt:
Deutsch1
