Hallo,
ich habe hier zwei unterschiedliche Verhaltensweisen bei ein und dem selben Ergebnis und ich weiss nicht, warum?
Mit einem Klick auf eine JvFileListBox soll ein Link in ein RichEdit eingefügt werden. Setze ich statisch bei GetItemPath den Wert auf 3 - die Anzahl der Ebenen, die mir die DirectoryListBox anzeigt, wird der Link als relativer Pfad richtig eingetragen. Zähle ich mit Count die Ebenen, wird mir der absolute Pfad eingetragen, obwohl das Ergebnis auch 3 ist!
Weiss jemand, wo da mein Fehler ist?
Delphi-Quellcode:
// ====== Bild einfügen ===================================
procedure TForm1.JvFileListBox1Change(Sender: TObject);
var
alle_ebenen: Integer;
begin
RichEdit1.SelLength := 0;
// RichEdit1.SelText := '
[img]'+ IncludeTrailingPathDelimiter(ExtractRelativePath(JvDirectoryListbox1.GetItemPath(3), JvFileListBox1.Directory)) + Edit1.Text + '[/img]</p>' + #13#10;
alle_ebenen := JvDirectoryListBox1.count;
RichEdit1.SelText := '
[img]'+ IncludeTrailingPathDelimiter(ExtractRelativePath(JvDirectoryListbox1.GetItemPath(JvDirectoryListBox1.Count), JvFileListBox1.Directory)) + Edit1.Text + '[/img]</p>' + #13#10;
Label2.Caption := intToStr(alle_ebenen); // Ergebnis ist 3
end;