1. September 2016 06:44
ncItemMedium_L.CALCFIELDS(BLOB);
ncItemMedium_L.BLOB.EXPORT(tempDateiPfad + tempDateiName);                  
datei.OPEN(tempDateiPfad + tempDateiName);
Dateilaenge := datei.LEN;
datei.CREATEINSTREAM(IStream);
IF Dateilaenge <= 2252 THEN BEGIN
  i := 1;
  WHILE NOT IStream.EOS DO BEGIN
    IStream.READ(Character);
    zaehler_L += 1;    
    CharacterText_L := FORMAT(Character);    
    ParmSpaltenwert[i] += CharacterText_L; 
    IF zaehler_L = 1000 THEN BEGIN
      i += 1;
      zaehler_L := 0;
    END;
  END;
END ELSE BEGIN
  ParmSpaltenwert[1] := '!!!Text länger als 2252 Zeichen!!!';
  ZuLangerText := TRUE;
END;
1. September 2016 09:29
1. September 2016 10:00
1. September 2016 12:30
1. September 2016 12:45
Ich habe spontan nicht mehr als das, was du in der Onlinehilfe findest.germmare hat geschrieben:Hast du vielleicht ein Beispielcode für mich?
 
			
		1. September 2016 21:01
1. September 2016 22:20
 )
 )