String buchstabenweise in array einlesen

[DeddyH]

Delphi-Quellcode:

L := Length(String);
SetLength(Array, L);
for i := 1 to L do
  Array[i - 1] := String[i];

Strings beginnen mit dem Index 1, dynamische Arrays hingegen mit 0, daher muss im obigen Code von i 1 abgezogen werden. Zum Auswerten kannst Du ja dann ein statisches Array['A'..'Z']: of integer verwenden, mit 0 füllen und je Buchstaben bei Fund um 1 erhöhen. Das ist zwar immer noch case-sensitive, aber das bekommst Du schon hin, es gibt ja Wandlungsfunktionen

[s.h.a.r.k]

Es geht auch noch schneller Zeitersparnis ist je nach Stringlänge sehr hoch:

Delphi-Quellcode:

function StrToArray(Value: String): TCharArray;
var
  L : Integer;
begin
  L := Length(Value);
  SetLength(Result, L);
  if (L > 0) then
    Move(PChar(Value)^, Result[0], L * SizeOf(Char));
end;

Hier mal ein kleiner Benchmark (QuadCore Q6600):

Code:

Rounds: 10000000

Length: 21
naive: 2428ms
optimized: 1128ms
Time Saved: 54%

Length: 168
naive: 9179ms
optimized: 1831ms
Time Saved: 80%

Eine CountDiverseChars-Methode kommt auch bald

[basti2011]

Vielen Dank ich werds trotz eher geringem Verständnis einfach durchprobieren

[DeddyH]

Ich hatte das bewusst möglichst einfach gehalten, aber manche Egos scheinen einfach stärker zu sein

[Stevie]

Zitat von DeddyH:

Ich hatte das bewusst möglichst einfach gehalten, aber manche Egos scheinen einfach stärker zu sein

Hätte er Delphi 2010 oder höher könnte er auch das hier machen:

Delphi-Quellcode:

  ShowMessageFmt('"%s" kommt %d mal in "%s" vor', [Edit2.Text,
    TDelegateEnumerable<Char>.Create(
      procedure
      var
        c: Char;
      begin
        for c in Edit1.Text do Yield<Char>(c);
      end).Where(
    function(c: Char): Boolean
    begin
      Result := SameText(c, Edit2.Text);
    end).Count,
    Edit1.Text]);

Sorry, ich konnte nicht widerstehen.

[Luckie]

Also, wenn ihr ihn verwirren wollt, dann habt ihr das sehr wahrscheinlich mittlerweile geschafft.

[Stevie]

Zitat von Luckie:

Also, wenn ihr ihn verwirren wollt, dann habt ihr das sehr wahrscheinlich mittlerweile geschafft.

Du meinst dich, nicht ihn, oder?

Zitat von himitsu:

Nur noch Begin und End ersetzt und man hätte einen typischen C-Code

Pff, du erkennst ja nur nicht die Kapazität und Flexibilität dieses Codes

[himitsu]

Nur noch Begin und End ersetzt und man hätte einen typischen C-Code

[mkinzler]

Ihr seid schon komische Vögel, der Te offenbart, dass ihm das grundlegende Verständnis fehlt und ihr offenbart ihm eure "speziallösungen", die er bestimmt nicht versteht.

[DeddyH]

Meine Rede