Buchstabensuche !aller! Felder

[DeddyH]

So geht' s auch:

Delphi-Quellcode:

type  TMyArray = array of integer;

function SeekChar(cArr: array of char;c: char): TMyArray;
var i: integer;
begin
  SetLength(Result,0);
  for i := Low(cArr) to High(cArr) do
    if cArr[i] = c then
      begin
        SetLength(Result,Length(Result)+ 1);
        Result[Pred(Length(Result))] := i;
      end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var arr: TMyArray;
    i: integer;
    test: array[0..4] of char;
begin
  test[0] := 'A';
  test[1] := 'V';
  test[2] := 'C';
  test[3] := 'A';
  test[4] := 'A';
  arr := SeekChar(test,'A');
  for i := Low(arr) to High(arr) do
    ShowMessage(inttostr(arr[i]));
  SetLength(arr,0);
end;

[Lotus]

das is ja noch viel komplizierter -.-

[DeddyH]

Soll ich' s Dir erklären?

[Lotus]

wäre sehr sehr nett

[RWarnecke]

Zitat von Lotus:

@Rwarnecke
danke für diesen code.. allerdings verstehe ich diesen nicht ganz und möchte ihn daher nicht blind benutzen.. mir wäre es lieber wenn ich alles genau verstehe.. allerdings faengts schon bei sub und mainstring an...

Substring und MainString sind Variablen. SubString ist der String der gesucht wird im Mainstring. N ist die Position die gesucht werden soll vom Substring. Ein kleines Beispiel :

Delphi-Quellcode:

function PosN(Substring, Mainstring: string; n: Integer): Integer;
begin
  if Pos(substring, mainstring) = 0 then begin
    posn := 0;
    Exit;
  end else begin
    if  n = 1 then posn := Pos(substring, mainstring)
    else begin
      posn := Pos(substring, mainstring) + posn(substring, Copy(mainstring,
         (Pos(substring, mainstring) + 1), Length(mainstring)), n - 1);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  text : string;
  ergebnis : string;
  zaehler : integer;
begin
  text := 'AVAAS';
  zaehler := 1;
  repeat
    if posn('A', text, zaehler) > 0 then
      ergebnis := ergebnis + IntToStr(posn('A', text, zaehler)) + ', ';
    zaehler := zaehler + 1;
  until posn('A', text, zaehler) = 0;
  Label1.Caption := ergebnis;
end;

Das habe ich nur so runtergetippt. Sollte aber funktionieren. Ein kleiner Tipp von mir, schaue Dir wirklich mal die Befehle Pos und PosEx in der Online-Hilfe genaustens an.

Edit:
Für das Beispiel brauchst Du ein Label und einen TButton. Das ganze kann man sicherlich auch noch eleganter in einer For-Schleife machen.

Edit 2:
Erklärung von der Variable "n" hinzugefügt.

[DeddyH]

Also, zunächst definiere ich ein dynamisches Array als Datentyp. type TMyArray = array of integer; Ein dynamisches Array hat keine vorgegebene Größe (deshalb ja "dynamisch"), sondern kann den Umständen entsprechend wachsen. Die Deklaration als Typ ist deshalb nötig, damit ich es als Rückgabewert einer Funktion nutzen kann (sonst würde der Compiler meckern).
Nun zur Funktion:

Delphi-Quellcode:

function SeekChar(cArr: array of char;c: char): TMyArray;
var i: integer;
begin
  SetLength(Result,0);
  for i := Low(cArr) to High(cArr) do
    if cArr[i] = c then
      begin
        SetLength(Result,Length(Result)+ 1);
        Result[Pred(Length(Result))] := i;
      end;
end;

Sie erwartet als Parameter wieder ein dynamisches Array von Zeichen sowie das zu ermittelnde Zeichen. Rückgabewert ist der selbst definierte Datentyp (siehe oben). Mit SetLength setze ich den Speicherbedarf initial auf 0. Nun gehe ich das übergebene Array in einer Schleife durch (die Funktionen Low und High dienen der Emittlung der Größe des übergebenen Array) und mache bei einem Treffer Folgendes:
- Vergrößern des Rückgabearrays um ein Element
- Befüllen des letzten Elements mit dem Index der Fundstelle (da der Index eines dynamischen Arrays immer mit 0 beginnt, hat das letzte Element den Index Length - 1 oder anders formuliert Pred(Length)).
Die Methode Button1Click dient nur zur Verdeutlichung, wie man die Funktion nutzen kann.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var arr: TMyArray;
    i: integer;
    test: array[0..4] of char;
begin
  test[0] := 'A';
  test[1] := 'V';
  test[2] := 'C';
  test[3] := 'A';
  test[4] := 'A';
  arr := SeekChar(test,'A');
  for i := Low(arr) to High(arr) do
    ShowMessage(inttostr(arr[i]));
  SetLength(arr,0);
end;

Zuerst wird ein Array of Char befüllt, dann die Funktion aufgerufen, nun folgt die Ausgabe der Fundstellen in einer Schleife und zu guter Letzt setze ich die Länge des Rückgabearrays wieder auf 0 und gebe somit dessen Speicher frei.
That' s it.

[Lotus]

Delphi-Quellcode:

      posn := Pos(substring, mainstring) + posn(substring, Copy(mainstring,
         (Pos(substring, mainstring) + 1), Length(mainstring)), n - 1);

um diesen code geht es mir speziell! hab mir hilfe zu pos angeschaut.. nur versteh ich diese zeilen nich ganz

[RWarnecke]

Zitat von Lotus:

Delphi-Quellcode:

      posn := Pos(substring, mainstring) + posn(substring, Copy(mainstring,
         (Pos(substring, mainstring) + 1), Length(mainstring)), n - 1);

um diesen code geht es mir speziell! hab mir hilfe zu pos angeschaut.. nur versteh ich diese zeilen nich ganz

Hier wird die erste Position vom Substring im Mainstring ermittelt. Zu dieser Zahl wird dann durch nochmaligen Aufruf der Funktion PosN die nächste Position ermittelt mit dem Befehl Copy. Was dieser Befehl macht kannste ebenfalls in der Online-Hilfe nachschauen.

[Lotus]

pos funktioniert aber halt nur auf strings.. was is wenn ich die ganze zeit aber mit chars arbeite?

[RWarnecke]

Den Befehl Pos kannst Du auch nur für einzelne Buchstaben oder Zeichen nutzen.