String buchstabenweise in array einlesen

[basti2011]

Hallo,
Ich würde gerne in ein dyn. Array einen string einlesen und zwar buchstabenweise.
Anschließend soll ein buchstabe in ein edit feld eingegeben werden und eine procedure gibt aus wie oft dieser buchstabe in dem oben eingelesenen array vorkommt.

Momentan bin ich beim einlesen in das array soweit :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i,laenge :integer;
    wort :string;
    BS_array: array of string;
begin
 wort := edit1.text;
 laenge := Length(wort);
 Setlength(BS_array,laenge);
 For i := 1 to (laenge-1) do
  begin
   BS_array[1] := wort;   // ich nehme an in diesem Bereich brauch ich einen befehl der den string zerlegt und damit einzelne Stellen belegt
  end;

Danke im Vorraus ! :wink:

[Luckie]

Du kannst die einzelnen Zeichen einer Zeichenkette über den Index ansprechen. Zu beachten ist dabei, dass der erste Buchstabe den Index eins hat: wort[1] gibt dir das erste Zeichen zurück.

Dynamische Arrays sind immer null-basierend.

Warum machst du das Array so lang wie das Wort und nutzt dann nur das erste Element: BS_array[1] := wort;

[basti2011]

Ja es scheitert nur daran dass mir die Idee fehlt wie ich jeden einzelnen Buchstaben ( ich weiß ja vorher nicht wie viele es sind)
einzeln in das array schreibe.



Im selben Zug muss ja auch dann ein bestimmter Buchstabe gesucht werden und gleichzeitig soll mitgezählt werden wie oft er existiert.

[s.h.a.r.k]

Delphi-Quellcode:

function StrToArray(Value: String): TArray<Char>;
// oder: function StrToArray(Value: String): array of Char;
var
  L : Integer;
  C : Char;
  i : Integer;
begin
  L := Length(Value);
  SetLength(Result, L);
  if (L > 0) then
  begin
    for i := 0 to L - 1 do
      Result[i] := Value[i + 1];
  end;
end

Eigentlich liefere ich nur sehr ungerne eine komplette Methode, da man dabei halt nichts lernt. Wichtig ist hier, wie Luckie schon gesagt hatte, dass Arrays (meist) 0-basierend sind, also der Zugriff via Index, und Strings 1-basierend.

Aber ich habe dies bzgl. auch noch eine Frage, daher die komplette Methode :stupid: Gibt es hierfür eine schnellere Methode!?

[Aphton]

Diese Variante wird nicht klappen!

Berücksichtige immer, dass Neulinge nicht wirklich die neusten Delphi Versionen benutzen und dadurch auch die neuersten Sprachfeatures nicht benutzen können!
(Ne kleine Änderung würde es kompilierbar machen, aber das dann nur Seitens erfahreneren Programmierer :P)

Edit:
oder: function StrToArray(Value: String): array of Char;
Dieses array of Char; müsste zuvor als Typ deklariert werden...

[juergen]

Hallo,

ich habe leider keine Ahnung von Arrays (noch nicht), könnte es mir aber so vorstellen:

Delphi-Quellcode:

 ...
For i := 0 to (laenge-1) do
   begin
    BS_array[i] := wort[i+1];
   end;
...

Edit: roter Kasten, war zu langsam

[zeras]

Du musst dir irgendwo merken, wie oft ein Buchstabe vorgekommen ist. Dazu vielleicht ein Array definieren, welche sich die Anzahl merken kann. Dann ist noch zu klären, ob du Großbuchstaben anderst behandelst als Kleinbuchstaben.

Versuche es doch einmal so (nicht optimiert):

Delphi-Quellcode:

procedure TForm11.Button1Click(Sender: TObject);
var i,laenge :integer;
    wort :string;
    BS_array: array ['a'..'z'] of byte;
    c    : char;

begin
 wort := 'hallo';
 laenge := Length(wort);

 for c:=low(BS_array) to high(BS_array) do BS_array[c]:=0;


 For i := 1 to (laenge) do begin
   c := wort[i];
   BS_array[wort[i]] := BS_array[wort[i]] +1;
  end;
end;

[basti2011]

Also erstmal danke für die vielen Antworten,

Ich bin im ersten Jahr und benutze momentan Delphi 7.
Daher sind mir ziemlich viele Komponenten und funktionen die genannt wurden sehr unbekannt :|

Besonders mit den Begriffen - value, high , low - kann ich nicht wirklich was damit anfangen und es ist so dass ich momentan für einen Test lerne und dieses Beispiel zur Übung bekommen hab ;)

Der genaue Aufgabenlaut wäre : Schreib ein Programm welches ein eingegebenes Wort buchstabenweise in ein dyn. Array einliest. Nach Eingabe eines Buchstabens soll ausgegeben werden wie oft dieser Buchstabe im eingegebenen Wort vorkommt.

Groß und klein Buchstaben ist vollkommen egal eigentlich es geht rein um die Funktionlität dessen was in der Angabe steht.

Also vielleicht ergibt sich noch ne "einfache" Lösungsmöglichkeit die im Grunde genommen nur ein dyn. Array, eine For - Schleife und eine Function für die Überprüfung behinhaltet , weil viel weiter sind wir mit dem Stoff nicht. :thumb:

[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 :mrgreen: 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 ;)