Length(Filenames)

Biarchiv · Beiträge: 688

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 · Verfasst: Mo 05.05.03 15:26

Hallo,

erkläre bitte mal, was du mit der Problematischen Zeile ereichen willst.

Gruß
Klabautermann

Biarchiv · Beiträge: 688

Hallo,

Danke für Deine Antwort.

markieren

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.

markieren

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. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Soweit ich weiß, unterstützt Delphi 3 doch gar keine dynamischen Arrays, oder? Kannst Du dann den Parameter so überhaupt verwenden?

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

Biarchiv · Beiträge: 688

Hallo,

Doch läuft super. Delphi3.02 Standard

Nur das kennt er nicht.

Alni · Verfasst: 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.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme