Suche Unicode ersatz für AnsiSameText?

[OrNEC]

Suche seit einer Stunde nach einer Lösung um AnsiSameText durch was Unicode-fähiges zu ersetzen, kennst vllt jemand eine Lösung?

AnsiSameText(Trim(ExtractFileExt(Buffer)), '.txt')

[sx2008]

Du hast die Lösung doch schon gefunden - AnsiSameText.
Deinen Dateinamen können chinesisch, türkisch oder was auch immer sein,
aber die Endung muss ".TXT", ".Txt" oder ".txt" lauten.
Also ist AnsiSameText hier vollkommen ausreichend.

[mkinzler]

Ab D2009 ist AnsiSameText() eine Unicodefunktion (auch wenn der namen etwas anderes suggeriert) in D7 aber nicht.

[Garfield]

Zitat von OrNEC:

... AnsiSameText ...

Sollte doch eigentlich nicht schwer sein:

Zitat von unit SysUtils;:

function AnsiSameText(const S1, S2: string): Boolean;
function WideSameText(const S1, S2: WideString): Boolean;

function Trim(const S: string): string;
function Trim(const S: WideString): WideString;

function ExtractFileExt(const FileName: string): string;

Nur für ExtractFileExt musst Du Dir etwas überlegen.

[OrNEC]

Also es geht um eine Drag & Drop Funktion. Vllt poste ich den danzen Code.
Ich kann die .crp* Datei nicht laden wenn sie kyrillischen Namen hat. Weiß jetzt nicht genau woran es liegt.

Delphi-Quellcode:

procedure TForm1.WMDROPFILES(var Msg: TMessage);
var j, zaehler: Cardinal;
    Buffer, Extension: String;
    i: Integer;
    List, List2 : TTntStringList;
begin
  inherited;
  Buffer := '';
  zaehler := DragQueryFile(Msg.WParam, $FFFFFFFF, nil, 0);
  for j := 0 to zaehler - 1 do
    begin
      SetLength(Buffer, DragQueryFile(Msg.WParam, j, nil, 0) + 1);
      DragQueryFile(Msg.WParam, j, @Buffer[1], Length(Buffer));
      Extension := ExtractFileExt(Buffer);
    end;
  DragFinish(Msg.WParam);

//Laden
wideshowmessage(ExtractFileExt(Buffer));

if WideSameText(Trim(ExtractFileExt(Buffer)), '.crpu') or WideSameText(Trim(ExtractFileExt(Buffer)), '.crp') or WideSameText(Trim(ExtractFileExt(Buffer)), '.ccr') then
begin
List:=TTntStringList.Create;
  try
    List.LoadFromFile(Buffer);

    if ListBox1.Count<>0 then
    begin
    if WideMessageDlg(_('Retain existing stations list?'), mtConfirmation, [mbYes, mbNo], 0) = mrNo then
    begin
    ListBox1.Clear;
    ListBox2.Clear;
    ListBox3.Clear;
    ListBox4.Clear;
    end;
    end;

    if WideSameText(Trim(ExtractFileExt(Buffer)), '.crpu') or WideSameText(Trim(ExtractFileExt(Buffer)), '.crp') then
    begin
    for i:=0 to List.Count-1 do
    begin
    List2:=Explode('<>', List[i]);
    ListBox1.Items.Insert(i, List2[1]);
    ListBox2.Items.Insert(i, List2[2]);
    ListBox3.Items.Insert(i, List2[3]);
    ListBox4.Items.Insert(i, List2[4]);
    List2.Free;
    end;
    end else
        begin
        for i:=0 to List.Count-1 do
        begin
        List2:=Explode('=', List[i]);
        ListBox1.Items.Insert(i, List2[1]);
        ListBox2.Items.Insert(i, List2[2]);
        ListBox3.Items.Insert(i, List2[3]);
        ListBox4.Items.Insert(i, List2[4]);
        List2.Free;
        end;
        end;

  finally
    List.Free;
  end;
end;
end;

[himitsu]

Zitat von Garfield:

Nur für ExtractFileExt musst Du Dir etwas überlegen.

ExtractFileExt sucht nach dem letzten Punkt und der Punkt existiert in Ansi und Unicode ... ist also ebenso kein Problem.
(höchstens Unicodezeichen in der Dateiendung würden in ? umgewandelt, aber das sollte ja soweit auch kein Problem sein, wenn man eh auf Dateiendungen mit ANSI-Zeichen prüft)

[OrNEC]

Genau, hab das jetzt auch soweit verstanden.

Wo hackt es dann eurer Meinung nach da im Code?

[Garfield]

Vielleicht solltest Du da auch Widefunktionen verwenden. Ich habe das mal so gemacht:

Delphi-Quellcode:

procedure T***.WMDROPFILES(var Msg: TMessage);
var
  pDragFile  : PWideChar;
  iFileCount : integer;
  i, iSize   : integer;
  slDropList : TStringList;
begin
  {
  *  Initialisierung.
  }
  pDragFile  := nil;
  slDropList := TStringList.Create;
  {
  *  Anzahl der Dropfiles holen.
  }
  iFileCount := DragQueryFileW(Msg.wParam, $FFFFFFFF, pDragFile, 255);
  {
  *  Wenn Einträge existieren, Liste abarbeiten.
  }
  if iFileCount > 0 then
  for i := 0 to iFileCount - 1 do
  begin
    {
    *  Die Länge des Eintrages ermitteln.
    }
    iSize := DragQueryFile(Msg.wParam, i, nil, 0) + 1;
    {
    *  Den speicher für den String bereitstellen.
    }
    pDragFile := WideStrAlloc(iSize);
    {
    *  Den Eintrag holen.
    }
    DragQueryFileW(Msg.wParam, i, pDragFile, iSize);
    {
    *  Den Eintrag in die Liste eintragen.
    }
    slDropList.Add(pDragFile);
    {
    *  Den reservierten Speicher freigeben.
    }
    WideStrDispose(pDragFile);
  end;
  {
  *  Messagebehandlung beenden.
  }
  DragFinish(Msg.wParam);

...
end;

slDropList müsste vermutlich TWideStringList sein. Ist es hier nicht, weil ich den TNT Hack von Himitsu verwende.

Für das ExtractFileExt könnte man auch eine Kopierfunktion verwenden.

[Garfield]

Zitat von Garfield:

    iSize := DragQueryFile(Msg.wParam, i, nil, 0) + 1;

Ich wurde freundlicherweise darauf hingeweisen, dass es richtig so wäre:

    iSize := DragQueryFileW(Msg.wParam, i, nil, 0) + 1;

Vielen Dank.

[sx2008]

Dieser Code tut meinen Augen weh:

Delphi-Quellcode:

wideshowmessage(ExtractFileExt(Buffer));

if WideSameText(Trim(ExtractFileExt(Buffer)), '.crpu') or WideSameText(Trim(ExtractFileExt(Buffer)), '.crp') or WideSameText(Trim(ExtractFileExt(Buffer)), '.ccr') then

Vielleicht sollte man hier eine Zwischenvariable verwenden!