On Wed, Jun 18, 2014 at 6:42 AM, Ralf Quint <redro...@gmail.com> wrote: > A totally different solution and also more universal (not depending on the > length of the filename to be exactly 8 characters long would be > > while ((Length (Filename) > 0) AND (Filename (Length (Filename) = ' ') do > Delete (Filename, Length (Filename), 1);
How about : Filename := Trim(Filename); Juha _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
