AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Texte von Listbox1 in ListBox1 teilweise kopieren
Thema durchsuchen
Ansicht
Themen-Optionen

Texte von Listbox1 in ListBox1 teilweise kopieren

Ein Thema von taktaky · begonnen am 12. Okt 2007 · letzter Beitrag vom 13. Okt 2007
 
Blackheart

Registriert seit: 4. Mai 2005
846 Beiträge
 
Delphi 7 Enterprise
 
#23

Re: Texte von Listbox1 in ListBox1 teilweise kopieren

  Alt 13. Okt 2007, 21:07
Zitat von Klaus01:
Zitat von taktaky:

Nicht mit einer einzelne Datei testen, sondern die Liste in ListBox1!

Hier ist eine Lösung: Und schon getestet
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
for i:=1 to listbox1.items.count do
  listbox1.items[i-1]:=extractfilename(stringreplace(listbox1.items[i-1], '/','\', [rfreplaceall]));
end;
<>
Ach taktaky,

hier im Forum hatte zu keiner Zeit jemand Deine komplette Liste um so etwas zu testen.
Selbst in Deinem kurzen Beispiel im 1. Beitrag wurden die Ordner mit "\" getrennt.
Wenn Du in Deiner Liste dann die Ordner von den Dateien mit einem "/" trennst - wie soll
mann Dir da helfen?

In der Hilfe für ExtractFilePath steht eindeutig das es nach Backslash "\" schaut.

Grüße
Klaus
Neuerdings verbringe Ich hier mehr Zeit als sonst, auch bemühe Ich die Suche nach Autoren des öfteren... (Taktaky) ist immer für einen Lacher gut - vieleicht ist es ja auch von ihm so gedacht.
Soetwas muss es einfach auch geben.
Blackheart
 
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:58 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz