ShowMessage kürzt lange Dateinamen

[LazProgger]

Bei der Ausgabe eines Dateinamens mit der ShowMessage-Funktion bekomme ich eine gekürzte Variante des Dateinamens anstatt den vollen Dateinamen angezeigt. Also so etwas wie "C:\Users\XX\YY\...\Datei.TXT" anstatt den Namen ohne die Punkte.

Gebe ich den selben String mit dem Dateinamen zum Beispiel in einem Memo aus, ist er komplett. Es kann also nicht an dem String oder der String-Variable liegen.

Gerne möchte ich auch den vollen Dateinamen mit der ShowMessage Funktion anzeigen lassen. Geht das irgendwie? Alle anderen langen Strings werden komischerweise richtig durch ShowMessage angezeigt, der Fehler tritt nur bei Dateinamen auf.

PS: Ich benutze Windows 7 und Lazarus 1.0.14.

[creed steiger]

Wird wohl weniger an showmessage liegen.
Wie ermittlest du den den denn Dateinamen/Pfad?

[LazProgger]

Der Pfad/Dateiname ist in einer lokalen Variable als String gespeichert und den habe ich selbst zusammengesetzt:

Code: Alles auswählen

s:='C:\Ordner\Ordner\Ordner\Ordner\Ordner\Ordner\Ordner\Ordner\Ordner\Datei.dat';
showmessage(s);

Gibt die Ausgabe: C:\Ordner\Ordner\Ordner\Ordner\Ordner\O...\Datei.dat'

[hde]

Lazarus 1.2RC2 -fpc 2.6.2 unter Win32

[hde]

unter Win7 64bit

[hde]

auch wenn unter winXP kompiliert wird, zeigt Win7--64bit as obige Bild,
liegt also wohl an der Windowsversion
hde

[LazProgger]

Dann bin ich wohl nicht der einzige, bei dem das passiert..

Gibts irgendeine Möglichkeit dieses Verhalten abzustellen?!

[Mathias]

Ich habe auch ein bisschen probiert.

Code: Alles auswählen

  s:= 'kgjlhgjgljkljgklhjgkljlö dfgköljdkslhjgkjnkldsn jhklgnhgklhjdlkghjk ljhklgjhklhjklhöjhk lfjhklfdjhklfdjhlkhjfkl hjdflkhfjdhklfhjl'#13#10'doom';

Da kommen keine '...', dafür macht diverse Zeilenumbrucke.

Code: Alles auswählen

  s:= 'kgjlhgjgljkljgklhjgkljlödfgköljdkslhjgkjnkldsnjhklgnhgklhjdlkghjkljhklgjhklhjklhöjhklfjhklfdjhklfdjhlkhjfklhjdflkhfjdhklfhjl';
 

Wenn keine Leerzeichen vorhanden sind, dann macht er am Ende '...' .

Anstelle von ShowMessage kann ich Application.MessageBox nehmen, mit dem gleichen Ergebniss.

[LazProgger]

Also bleibt einem wohl nichts anderes übrig als einen eigenen Message-Dialog zu schreiben, der die Sache vernünftig darstellt..

[Mathias]

Ich habe da noch einen Lösungsweg, welcher noch angepasst werden muss.

Code: Alles auswählen

procedure TForm1.FormShow(Sender: TObject);
var
  s: string;
begin
  s := 'C:\Ordner\Ordner\Ordner\Ordner\Ordner\Ordner\Ordner\Ordner\Ordner\Datei.dat';
 
  Label1.Caption := s;
  Label1.Left := 30;
  Label1.Top := 30;
  ClientWidth := Label1.Width + 60;
  ClientHeight := Label1.Height + 120;
  Button1.Left := ClientWidth div 2 - Button1.Width div 2;
  Button1.Top := Label1.Top + Label1.Height + 30;
end;