Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Length(Filenames)
Biarchiv - Mo 05.05.03 15:15
Titel: Length(Filenames)
Quelltext
1:
2:
3:
4:
5:
6:
7:
| procedure ConcatFiles(DestFilename: string; const Filenames: array of string);
var
i: Integer;
InStream, OutStream: TFileStream;
FirstSize, Size: Integer;
begin
if Length(Filenames) = 0 then Exit; // Funktioniert nicht bei Delphi3 |
if Length(Filenames) = 0 then Exit; Geht leider bei Delphi3 nicht. Kann
man das irrgendwie umschreiben?
Danke
Moderiert von 
Klabautermann: Code-Tags hinzugefügt.
Klabautermann - Mo 05.05.03 15:26
Hallo,
erkläre bitte mal, was du mit der Problematischen Zeile ereichen willst.
Gruß
Klabautermann
Biarchiv - Mo 05.05.03 15:34
Hallo,
Danke für Deine Antwort.
Quelltext
1:
| ConcatFiles(save, [datei1.txt, datei2.txt, datei3.txt, datei4.txt, datei5.txt,..] |
Nun muß ich aber für jede Datei extra einen Aufruf machen da wenn es eine Datei nicht gibt kommt es zum Error.
Quelltext
1:
2:
3:
| ConcatFiles(save, [datei1.txt, datei2.txt]
ConcatFiles(save, [datei1.txt, datei2.txt, datei3.txt]
ConcatFiles(save, [datei1.txt, datei2.txt, datei3.txt, datei4.txt] |
Diesr Befehl bewirft das er fals eine Datei nicht mehr gibt das die proc
beendet wird.
Moderiert von Tino: Code-Tags eingefügt.
Christian S. - Mo 05.05.03 15:41
Soweit ich weiß, unterstützt Delphi 3 doch gar keine dynamischen Arrays, oder? Kannst Du dann den Parameter so überhaupt verwenden?
Biarchiv - Mo 05.05.03 16:39
Hallo,
Doch läuft super. Delphi3.02 Standard
Nur das kennt er nicht.
Alni - Mo 05.05.03 18:49
Versuch doch mal einfach auf das erste Eelment im Array zu zugreifen, und fang die Exception ab die Auftritt wenn das Element nicht vorhanden ist. In der Behandlung der Exception kannst du dann auch die Proc verlassen.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!