Buchstaben ersetzen

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, U17R4.

Als Wiedereinstiegshilfe:

Delphi-Quellcode:

resourcestring
  S_INVCHAR = 'EncodedStr(): ungültiges Eingabezeichen';

function EncodedStr(s: string): string;
const
  LETTERS = 'abcdefghijklmnopqrstuvwxyz ';
  DIGITS = '123456789';
var
  i, iNext, iPad, index: Integer;
  sCode: string[4];
begin
  iNext := 1;
  SetLength(Result, Length(s) shl 2);
  for i := 1 to Length(s) do
  begin
    index := Pos(Lowercase(s[i]), LETTERS);
    if index = 0 then
      raise Exception.Create(S_INVCHAR);
    iPad := Pred(index) div 9;
    index := Succ(Pred(index) mod 9);
    sCode := StringOfChar('0', iPad) + DIGITS[index] + ' ';
    Move(sCode[1], Result[iNext], Length(sCode));
    Inc(iNext, Length(sCode));
  end;
  SetLength(Result, Pred(iNext));
end;

procedure TDemoForm.TestButtonClick(Sender: TObject);
begin
  ShowMessage(EncodedStr('Hallo Test'));
end;

Seit TP hat sich einiges geändert. Es wird das Beste sein, wenn du jede Zeile anhand der Delphi Onlinehilfe analysierst. Bei Verständnisproblemen erhältst du hier im Forum sicher Hilfe.

Freundliche Grüße vom marabu