Forum: Win32/Win64 API (native code)
by GoTo0815,
16. Mai 2015
... so hatte ich das auch gedacht. Während ich dann gestern 16:47 den ersten Post hier schrieb, hatte ich das auch noch nicht in meinem Code. Stellte mir selbst und der Community hier dann aber die Frage:
// Muss eigentlich bei dem letzten Dateinamen dann das #0 weggelassen werden, da ja in der
// CopyFilesToClipboard dann #0#0 ergänzt wird?
Daraufhin habe ich das "if i < aList.Count...
Forum: Win32/Win64 API (native code)
by GoTo0815,
16. Mai 2015
... ja Du hast recht! Im Debugger habe ich nicht geschaut.
Ich hatte mir versucht den String anderweitig anzuschauen (in einem Memo ausgegeben), was durch das #0 natürlich nicht wirklich schlau ist.
Doppelte Anführungszeichen werden scheinbar hinzugefügt bei Strings mit Leerzeichen:
aList.Delimiter:=#0;
aListString := aList.DelimitedText;
Ergebnis:...
Forum: Win32/Win64 API (native code)
by GoTo0815,
15. Mai 2015
aList.Delimiter := #0;
aListString:= aList.DelimitedText;
... das hatte ich zwischendurch auch einmal so versucht und leider funktionierte das nicht.
Ich bekomme dann beim Einfügen eine Fehlermeldung, dass ein Dateiname/Dateipfad nicht stimmt.
Sehr merkwürdig! :pale:
Forum: Win32/Win64 API (native code)
by GoTo0815,
15. Mai 2015
... kaum habe ich mir und Euch diese Frage gestellt:
Muss eigentlich bei dem letzten Dateinamen dann das #0 weggelassen werden, da ja in der CopyFilesToClipboard dann #0#0 ergänzt wird?
Jetzt habe ich das mal geändert und nun funktioniert es natürlich :-)
//...
for i := 0 to aList.Count -1 do
Forum: Win32/Win64 API (native code)
by GoTo0815,
15. Mai 2015
Guten Tag,
ggf. habe ich ein riesiges Brett vor dem Kopf, aber ich versuche Dateien, deren Dateipfad und Dateinamen ich in einer StringListe gespeichert habe mittels CopyFilesToClipboard in die Zwischenablage kopieren, damit ich diese per Strg+V in beispielsweise Outlook einfügen kann.
procedure TForm1.BitBtn5Click(Sender: TObject);
var
aList : TStringList;
s, aListString : String;...