Hi,

ich geb jetzt auf, an so einer kleinigkeit hängen zu bleiben ist mir jetzt sogar peinlich. Also nicht beschimpfen bitte.

markieren

Code:

procedure TForm1.LoeschenClick(Sender: TObject);
//Markierte Datei Löschen
begin
  if ListBox.SelCount = 1 then
  begin //Pfad zusammensetzen aus:
    DeleteFile(CBPfad.Text + '\' + //ComboBox mit dem Laufwerksbuchstaben,
      TreeView.Selected.Text + '\' +//TreView mit dem Ordner,
      ListBox.Items.Text + //ListBox mit dem Dateinamen,
      CBEndung.Text); //ComboBox mit der Endung
  end;
end;

In der CBPfad steht: C:
Im TreeView steht: Windows\Desktop
In der ListBox steht: ndig
In CBEndung steht: .jpg

Es handelt sichs also dabei um die Datei ndig.jpg die auf dem Dektop liegt.
Ich möchte sie Löschen. Es eght aber nicht. Jedenfalls nicht auf Button klick.

Wenn ich es mir in eine ShowMessage anzeigen lasse, dann kommt folgendes raus:

Zitat:

C:\Windows\Desktopndig.jpg

Kann natürlich nicht gehen weil ja ein \ fehlt. Aber warum ver***** fehlts, ich versteh das nicht. Ich habe sogar im TreeView Windows\Dektop\ geschrieben und das + '\' + dahinter(Im Source) weggelassen, aber das gleiche ergebnis. Ich kapier das nicht.

Hallo Daniel,

möchtest du wirklich den gesamten Inthalt der Listbox mit

markieren

Code:

ListBox.Items.Text

einfügen, oder nur den ausgewählten Eintrag?

Nur den Sel natürlich aber mehr hab ich noch nicht drin.

Mit ListBox.Items.Strings[0] würde ich sie löschen können.

Ich habe deine Antwort nicht verstanden, hast du mal

markieren

Code:

ListBox.Items.Strings[0]

anstatt

markieren

Code:

ListBox.Items.Text

probiert?

Mit dem Index gehts, aber eben mit Text nicht.
SelText oder Selected.Text gibt es ja nicht.

Wäre mal interessant, ob das letzte Zeichen von

Zitat:

ListBox.Items.Text

ein DEL ist? Das könnte bewirken, dass das folgende '\' gelöscht wird

Wie soll ich den das festellen!?
Wenn ich ein Breakp. setze, den krieg ich nur folgenden Text zurück: Auf Veriable 'Self' kan wegen Optimierung nicht zugegrifen werden. Somit sehe ich nciht was es wirklich hat.

Aaah, jetzt hab ichs.
Es ist: 'ndig'#$D#$A

markieren

Code:

ShowMessage(IntToStr(Ord(ListBox.Items.Text[Length(ListBox.Items.Text)]))

sollte eigentlich den ASCII Wert des letzten Zeichens ausgeben.

Uuups, du warst schneller...

Hätt ich auch drauf kommen können. Hatte ich nämlich auch schon mal.