Fórum Problemas com string... #262776

s1:=´´; 
for i:=0 to list.count-1 do 
s1:= s1 + list[i] + 1013; 

s1 := list.Text;

s:= Opendialog1.filename; 

ShowMessage(s);

if OpenDialog1.Execute then
begin
   s := OpenDialo1.Filename ;
...
...
end ;

procedure ListDLLExports(const FileName: string; List: TStrings);
type
    TDWordArray = array[0..$FFFFF] of DWord;
var
    imageinfo: LoadedImage;
    pExportDirectory: PImageExportDirectory;
    dirsize: Cardinal;
    pDummy: PImageSectionHeader;
    I: Cardinal;
    pNameRVAs: ^TDWordArray;
    Name: string;
    pName: PChar; // <-- NOVO
begin
    List.Clear;
    if MapAndLoad(PChar(FileName), nil, @imageinfo, True, True) then begin
        try
            pExportDirectory := ImageDirectoryEntryToData(imageinfo.MappedAddress,
                False, IMAGE_DIRECTORY_ENTRY_EXPORT, dirsize);
            if (pExportDirectory <> nil) then begin
                pNameRVAs := ImageRvaToVa(imageinfo.FileHeader, imageinfo.MappedAddress,
                    DWord(pExportDirectory^.AddressOfNames), pDummy);
                for I := 0 to pExportDirectory^.NumberOfNames - 1 do begin
                    pName := PChar(ImageRvaToVa(imageinfo.FileHeader, imageinfo.MappedAddress,
                        pNameRVAs^[I], pDummy));
                    if Assigned(pName) then begin
                        Name := PChar(pName);
                        List.Add(Name);
                    end;
                end;
            end;
        finally
            UnMapAndLoad(@imageinfo);
        end;
    end;
end;