AnsiString aus TStringList kopieren

daniel23

Hallo,
ich kopiere aus eine StringList einen String in einen AnsiString und zwar so:

AnsiString a;
a = list->Strings[0]; //Datei Path und Filename mit Ext, also komplett

So es wird auch kopiert, aber die Ext. nicht, also .bmp nicht.

Kann mir jemand nen tip geben wo der Fehler liegen könnte in der Liste ist alles richtig drin, warum???
Help

Gruß Daniel

akari

Hallo

Das irgendwo eine Extension verloren geht liegt jedenfalls nicht am gezeigtem Code.

bis bald
akari

daniel23

ja ich weiß in a steht nur der Path mit Filename aber ohne Ext..
soll das an BDS liegen?
In einem anderen Prog geht der gleiche Salat doch auch!?

Das ganze ist in ListBox1DrawItem drin.

Gruß

akari

Hallo

Nein das liegt an deinem restlichem Quellcode.
Nach dem Kopieren aus der Liste heraus hat a auf jedenfall genau den gleichen Wert wie das Element in der Liste.

bis bald
akari

daniel23

ja, dann lade ich ein bmp und zeichne es in die ListBox mit canvas und Draw und danach fehlt die Ext.! Text gebe ich mit

DrawText(ListBox1->Canvas->Handle,a.c_str(),-1,(RECT*)&Rect,DT_SINGLELINE);

aus.

daniel23

Ok ich habs

bmp->LoadFromFile(path + ExtractFileName(a.SetLength(a.Length()-4))+typ);
//geht nicht obwohl es in einem anderen prog geht
//hab jetzt 
bmp->LoadFromFile(path + ExtractFileName(ChangeFileExt(a, typ))); //gefunden

Danke für deine Hilfe
Gruß