Datei öffnen...

[Patrick.Knott]

Ich hab auf irgenteiner Japanischen Webseite folgendes gefunden...

Delphi-Quellcode:

function HexToInt(hex:string):cardinal;
const cHex='0123456789ABCDEF';
var mult,i,loop:integer;
begin
      result:=0;
      mult:=1;
      for loop:=length(hex)downto 1 do
      begin 
       i:=pos(hex[loop],cHex)-1;
       if (i<0) then i:=0; 
       inc(result,(i*mult));
       mult:=mult*16;
      end;
end;

function UnicodeToAnsi(SubUnicode: string):string;     var a:array[0..500] of char; 
      s1,s2:char; 
      substr1,substr2,s:string; 
      str:string;
      i:integer; 
   begin 
     if length(SubUnicode) mod 4 = 0 then
     Begin
      str:='';
       for i:=1 to length(SubUnicode) div 4 do 
       Begin
         s:='';
         substr1:=copy(SubUnicode,i*4-3,2);
         substr2:=copy(SubUnicode,i*4-1,2);
         s1:=chr(hextoint(substr1));
         s2:=chr(hextoint(substr2));
         s:=s+s2+s1;
         strpcopy(a,s);
         str:=str+copy(widechartostring(@(a[0])),1,2);
       end;
       result:=str;
     end;
   end;

Ich hab es so versucht, leider funktionierts nett wirklich..

Delphi-Quellcode:

procedure TForm1.BitBtn3Click(Sender: TObject);
var
st: TStringlist;
z: integer;
i: integer;
begin
  if fileexists(BrowseForFolder1.FolderName + '\desktop.ini') then
    begin
      st := TStringlist.Create;
      st.LoadFromFile(BrowseForFolder1.FolderName + '\desktop.ini');
      z:= st.Count;
      for i:= 0 to z do
       begin
        memo1.text:= UnicodetoAnsi(st);
        end;
      end;
    st.Free;
end;