AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Delphi 2007 - UpperCase(), LowerCase() Implementierung
Thema durchsuchen
Ansicht
Themen-Optionen

Delphi 2007 - UpperCase(), LowerCase() Implementierung

Ein Thema von luke2 · begonnen am 6. Aug 2009 · letzter Beitrag vom 9. Aug 2009
 
jbg

Registriert seit: 12. Jun 2002
3.485 Beiträge
 
Delphi 10.1 Berlin Professional
 
#6

Re: Delphi 2007 - UpperCase(), LowerCase() Implementierung

  Alt 7. Aug 2009, 11:19
Zitat von luke2:
Danke, ich habe es jetzt mal so gemacht:
Delphi-Quellcode:
procedure FastUpperCase(var S: String); //inline;
var
  C: ^Char;
  I,j: Integer;
begin
  C := Addr(S[1]); j:=sizeof(char);
  for I := 0 to Length(S) - 1 do
  begin
    if (C^ >= 'a') and (C^ <= 'z') then C^ := UpCase(C^);
    C := Ptr(Integer(C) + j);
  end;
end;
Da stehen einem ja die Haare zu Berge. Wenn man schon mit Zeigern um sich wirft, dann aber bitte richtig und vor allem ohne S über die Hintertür zu manipulieren und somit andere Strings zu verändern, die zufälligerweise auf den selben Speicherplatz zeigen (Copy-On-Write). Und vor allem sollte man keine konstanten (=read only) Strings beschreiben, da das nur zu Schutzverletzungen führt.

Delphi-Quellcode:
procedure FastUpperCase(var S: String);
var
  P: PChar;
  Len: Integer;
begin
  { Garantieren, dass keine andere String-Referenz auf unseren Speicher
    zeigt (Copy-on-Write) }

  UniqueString(S);

  {$STRINGCHECKS OFF} // grrr... Wir wollen diesen Unsinn nicht, der den Code
  Len := Length(S); // nur aufbläht, verlangsamt und für Delphi und gescheite
  {$STRINGCHECKS ON}  // C++Builder Entwickler keinen Mehrwehrt bringt.
  P := PChar(S);
  for Len := Len downto 1 do
  begin
    case P^ of // Delphi 2009 Workaround für "in ['a'..'z']" Warnung, gleicher Maschinencode
      'a'..'z':
        P^ := Char(Ord(P^) xor $20); // Die Eigenschaften der ASCII-Tabelle ausnutzen
    end;
    Inc(P);
  end;
end;
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:48 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz