-
Forum: Die Delphi-IDE
by Balosh,
22. Mai 2015
@ Sir Rufo
was mir bei deinem Code aufgefallen ist, du benutzt ein TStringDynArray für die Ergebnisse der Suche. In meiner Variante hatte ich ja dafür eine TStringList und hatte diese dafür genutzt die Umbrüche die in *.dfm Dateien vorkommen mit StringReplace zu entfernen. Meine Frage ist nun, da ich mich mit Arrays überhaupt nicht auskenne, gibt es dafür so etwas ähnliches damit ich die...
-
Forum: Die Delphi-IDE
by Balosh,
21. Mai 2015
@ Sir Rufo
wenn ich mir dein Code so anschaue, fühl ich mich gerade naja besch***. Ich habe es mir komplizierter gemacht als es sein muss. Danke für das Beispiel.
-
Forum: Die Delphi-IDE
by Balosh,
21. Mai 2015
Man bin ich doof.:oops: Danke für die Erleuchtung.:idea:
Bei mir bekommt der Spruch: "Doppelt gemobbelt hält besser" eine ganz neue Bedeutung. Kein Wunder das es mit den .dfm Dateien nicht funktioniert. So langsam glaube ich das die Suche in .dfm Dateien soviel Sinn macht wie einer Kuh das Fahrrad fahren bei zu bringen.
-
Forum: Die Delphi-IDE
by Balosh,
21. Mai 2015
Habe ich schon probiert. Wenn ich das so mache bringt er mir die Fehlermeldung: "Keine Zuordnung für Unicode-Zeichen in der Multibyte-Zielcodeseite vorhanden." Mit dem Befehl von mir bringt er mir die Meldung nicht.
-
Forum: Die Delphi-IDE
by Balosh,
21. Mai 2015
Sry für die späte Meldung. Habe mittlerweile das Programm zu 95% lauffähig gemacht so wie ich es mir vorgestellt habe (Danke hierfür für die ganze Hilfe). Nur ein einziges Problem bleibt noch übrig:
Das am Anfang dieses Threads angesprochene Problem mit den .dfm Dateien. Habe den Code zwar mittlerweile so das er die Umbrüche und die Zeichen (z.B. " '+ " oder " +") vor der Suche rausnimmt, nur...
-
Forum: Die Delphi-IDE
by Balosh,
7. Mai 2015
Wenn ich zum Beispiel in einer Textdatei nach einem Wort mit 'ä' Suche bringt er mir die Meldung:
"Keine Zuordnung für Unicode-Zeichen in der Multibyte-Zielcodeseite vorhanden."
Da ich ja die "Volltextsuche" sowieso auf Unicode Basis machen wollte und alles bisher auch funktioniert nur das hier nicht, würde ich das wenn es geht auch noch irgendwie hinbekommen.
-
Forum: Die Delphi-IDE
by Balosh,
7. Mai 2015
Ich dreh noch am Rad. :evil:
Seit über einer Woche versuche ich die Sonderzeichen (ä,ö,ü,ß usw.) mit in die Suche einzubeziehen und bekomme es einfach nicht hin. Habe verschiedene Tipps aus dem Internet probiert aber nichts hat wirklich funktioniert.
Wie bekomme ich das in dieser Source gebacken:
procedure TMainSuche.FileSearch(const PathName, FileName: string);
var Rec : TSearchRec;
...
-
Forum: Die Delphi-IDE
by Balosh,
29. Apr 2015
Ich meine das Problem mit den Umbrüchen im Bezeichner einer langen Textzeile. Kann natürlich sein das ich da nicht ganz auf dem aktuellen Stand bin und das mittlerweile nicht mehr so ist.
-
Forum: Die Delphi-IDE
by Balosh,
29. Apr 2015
Das war der entscheidende Hinweis. Das Programm läuft jetzt einwandfrei und liest in *.txt und *.pas Dateien ohne Probleme und gibt die jeweiligen Dateien in der Listbox an. Nun will ich dieses Problem mit den *.dfm Dateien lösen. Hat da jemand schon Erfahrung mit gemacht und kann mir da ein paar Tipps und Hinweise geben?
-
Forum: Die Delphi-IDE
by Balosh,
27. Apr 2015
Ok so kann man es auch machen hast recht. So wie ich es gemacht habe funktioniert es zwar auch aber deine Variante ist die richtige im nachhinein.
Aber das ist keine Antwort auf meine Frage. :)
-
Forum: Die Delphi-IDE
by Balosh,
27. Apr 2015
Wusste nicht ob ich hier richtig bin. Wenn die Aussage stimmt bitte ich einen der Mods den Thread zu verschieben.
Nun zu meiner Frage bzw. Problem
Habe das Programm jetzt soweit am laufen das es die Unterordner und Dateien anzeigt. Nun will ich aber noch dass das Programm in den Dateien nach Wörter (Strings) sucht. Dazu habe ich noch eine zusätzlich Combobo in das Formular "eingebaut". Nun...
-
Forum: Die Delphi-IDE
by Balosh,
24. Apr 2015
Was meinst du damit, versteh ich nicht ganz? Was soll MatchesMask genau bringen? Kenne das nur flüchtig.
EDIT: Frage hat sich erledigt. :) Danke für den Hinweis.
-
Forum: Die Delphi-IDE
by Balosh,
24. Apr 2015
Habe das Problem mit dem Unterordner wie folgt gelöst. :)
procedure TMainSuche.FileSearch(const PathName, FileName: string);
var Rec : TSearchRec;
Path: string;
begin
Path := IncludeTrailingBackSlash(PathName);
try
//if FindFirst (Path + FileName, faDirectory, Rec) = 0 then
if FindFirst (Path+'*', faAnyFile, Rec) = 0 then
-
Forum: Die Delphi-IDE
by Balosh,
24. Apr 2015
Also ich finde nirgends etwas was verhindern könnte dass das Programm nicht richtig läuft hier mal den kompletten Code:
unit Volltextsuche;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, FileCtrl, System.IOUtils ,
Vcl.Buttons;
-
Forum: Die Delphi-IDE
by Balosh,
24. Apr 2015
Ok das ist merkwürdig. Dann liegt der Fehler wohl an einer anderen Prozedur im Gesamtcode bei mir. Nur wo das ist nun die Frage.:?
-
Forum: Die Delphi-IDE
by Balosh,
24. Apr 2015
mhh nicht wirklich er ignoriert immer noch die Unterordner komplett. Ich geh nochmals alles von oben nach unten durch vielleicht finde ich etwas.
-
Forum: Die Delphi-IDE
by Balosh,
24. Apr 2015
procedure TMainSuche.FileSearch(const PathName, FileName: string);
var Rec : TSearchRec;
Path : string;
begin
Path := IncludeTrailingBackSlash(PathName);
try
if FindFirst (Path + FileName, faAnyFile, Rec) = 0 then
begin
repeat
-
Forum: Die Delphi-IDE
by Balosh,
24. Apr 2015
Mhh Ok habe jetzt die Schleifen abgeändert aber nun bringt er mir kein Ergebnis mehr.
procedure TMainSuche.FileSearch(const PathName, FileName: string);
var Rec : TSearchRec;
Path : string;
begin
if FindFirst (Path + FileName, faAnyFile - faDirectory, Rec) = 0 then
if Checkbox1.Checked = true then
begin
-
Forum: Die Delphi-IDE
by Balosh,
24. Apr 2015
@ baumina
stimmt kein Wunder das es da crashed.
Jetzt steh ich auf dem Schlauch, was meinst du mit trennen?
-
Forum: Die Delphi-IDE
by Balosh,
24. Apr 2015
Habe nun die Checkbox mit eingebaut aber wenn ich das Programm ausführe und die Checkbox markiere kommt ein Speicher Fehler:
=>Erste Gelegenheit für Exception bei $77060FB2. Exception-Klasse $C0000005 mit Meldung 'access violation at 0x77060fb2: write of address 0x74e4ddf5'. Prozess Suche.exe (5336)<=
ich habe keine Ahnung was den Fehler verursacht.
Hier auch mal der geänderte Code mit...
-
Forum: Die Delphi-IDE
by Balosh,
23. Apr 2015
So habe nun in etwa das Grundgerüst. Ist zwar noch lang keine richtige Volltextsuche aber es ist ein Anfang.
Wenn jemandem Fehler auffallen oder paar Verbesserungsvorschläge hat als her damit. Meine nächste Hürde wo ich nehmen will ist die Checkbox so zu integrieren, dass wenn sie markiert ist auch die Unterordner mit einbezogen werden. So wie ich das bisher gemacht habe funktioniert es nicht...
-
Forum: Die Delphi-IDE
by Balosh,
22. Apr 2015
Auf was muss man denn alles achten wenn man die Suche komplett auf Unicode machen will? Ist es zu empfehlen oder eher nicht? (Ist nur mal so ein Gedanke) :)
-
Forum: Die Delphi-IDE
by Balosh,
22. Apr 2015
Vielen Dank für die vielen Ratschläge und Tipps. Einige helfen mir sehr viel weiter. Gerne könnt hier weiterhin Ratschläge, Tipps und Beispiele nennen. Je mehr desto besser.
Das hat mir einige neue Ideen eingebracht.
Gruß
Balosh
-
Forum: Die Delphi-IDE
by Balosh,
21. Apr 2015
Hallo zusammen,
ich bin ein "fast" Neuling in Delphi. :) Habe vor eine "Volltextsuche" mit Delphi zu programmieren, das Dateien mit der Endung (.pas und .dfm) durchsucht. Und zwar soll in diesen Dateien nach Wörtern im Quelltext gesucht werden die ich über ein EditField eingebe. Hat da jemand ein paar Tipps oder vielleicht sogar ein Beispiel, was man da am besten benutzt.
Danke schonmal für...