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;