Forum: Object-Pascal / Delphi-Language
Delphi
by illbytes,
29. Nov 2006
Hallo,
Also das Betriebssystem ist Windows 2000 Prof.
Programmieren mit Delphi3 Prof.
Ich weiss nicht warum sich der OpenDialog so Zickig verhält?
Schönen Gruß
Forum: Object-Pascal / Delphi-Language
Delphi
by illbytes,
29. Nov 2006
Hallo,
so ich erhalte "der Vorgang wurde erfolgreich Beendet" wenn ich bei ca. 150 Dateien bleibe.
Wenn ich darüber hinausgehe gibt es gar keine Message Box und nix wird im Memo und TListbox angezeigt.
IO Result über Variable ist bei ca. 150 gleich 0:= ansonsten keine Werteangabe.
Ergo wird es wohl keine Lösung geben.
Forum: Object-Pascal / Delphi-Language
Delphi
by illbytes,
29. Nov 2006
Hallo,
Hm so funktionierte es nicht:
{$I+}
if IOResult <> 0 then
begin
ShowMessage(SysErrorMessage(GetLastError));
{MessageDlg('Fehler beim Zugriff auf die Datei', mtWarning, , 0); }
{ exit;
Forum: Object-Pascal / Delphi-Language
Delphi
by illbytes,
29. Nov 2006
Hallo Miteinander,
ich habe nun einige Tage versucht das Problem in den Griff zu bekommen.
Mit dem untenstehenden Testprogramm bin ich nach wie vor auf ca 150 Dateien a 2 KB die eingelesen werden können gekommen.
Will ich mehr als 200 Dateien einlesen, dann wird nichts aber auch gar nichts im Memo und in der
TListBox angezeigt. Und das Ganze ohne eine Message oder sonstige Meldungen.
...
Forum: Object-Pascal / Delphi-Language
Delphi
by illbytes,
27. Nov 2006
Hallo,
ich habe das CloseFile(Datei);mal ein End nach oben verschoben Resultat es wird nur noch ein Zeilenfragment eingelesen.
Ist doch richtig das ich der Variablen Datei die Files des OpenDialog1 zuweise?
if OpenDialog1.Execute then
for j := 0 to opendialog1.Files.Count-1 do
begin
AssignFile(Datei, OpenDialog1.Files);
Forum: Object-Pascal / Delphi-Language
Delphi
by illbytes,
27. Nov 2006
Hallo Marabu,
so wie im siebten Posting nur das ich zwischendurch unter dem Memo1 nach Stringpattern suche und an entsprechender Stelle den String nach n Zeichen vom Zeilenanfang mit k Stellen auslese und ihn einem TString Grid übergebe.
Wenn noch was fehlt poste ich das noch rein.
Schönen Gruß
Forum: Object-Pascal / Delphi-Language
Delphi
by illbytes,
27. Nov 2006
Halllo zusammen,
nochmal Danke für die Tipps.
Das Öffnen funktioniert und auch meine Weiterverarbeitung.
Bei beiden Möglichkeiten stellt sich aber leider heraus das ich nur ca 150-160 Dateien öffnen kann. Wähle ich das gesamte Verzeichnis aus, dann wird überhaupt keine Textdatei eingelesen.
Die einzulesenden Textdateien haben 2KB Einzeldateigrösse demnach glaube ich nicht an ein...
Forum: Object-Pascal / Delphi-Language
Delphi
by illbytes,
23. Nov 2006
So nun klappts auch hat ein wenig gedauert.
Ich stell das mal hier rein, ist auch für andere Anfänger bestimmt nicht uninteressant.
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Datei : Textfile;
Zeilenpuffer,Filename : String;
Forum: Object-Pascal / Delphi-Language
Delphi
by illbytes,
23. Nov 2006
Danke für die Tipps :-))
ich versuch das mal nachzuvollziehen.
Forum: Object-Pascal / Delphi-Language
Delphi
by illbytes,
23. Nov 2006
Danke für den Tipp :-))
habe wohl nun ein Schleifenproblem
es wird nach wie Vor scheinbar nur eine Datei eingelesen
im Memo1 sieht man allerdings die Letzte Datei der Liste.
Es sollten im Memo nun alle Files sichtbar sein. Tun sie aber nicht.
(Anfängerpech)
Forum: Object-Pascal / Delphi-Language
Delphi
by illbytes,
23. Nov 2006
Hallo miteinander,
weiss vielleicht jemand, wie man unter Delphi 3 mehrere Dateien aus Dem OpenDialog heraus der Reihe nach ausführen kann?
Also ich habe im Objektinspektor unter Eigenschaften ->Options -> ofAllowMultiSelect auf True gesetzt.
Im Programm kann ich nun mehrere Files selektieren und diese Werden im Open Dialog unter Dateiname: in "Filename1.txt""Filename2.txt" usw....