Работа с строкой.

[celovec]

Edit7.text:='Андрей';

Необходимо из Андрей сделать A*****.
Тоесть показать первую букву, а все остальные заменить на звездочки.
Насколько я понимаю можно воспользоваться StringReplace но как не трогать первую букву в таком случае?

[Mad_Cat]

s:=edit1.text;
for i:=2 to length(s) do
s[i]:='*';
edit1.text:=s;

[Пепел Феникса]

function DoIt(s:string):string;
var i:integer;
begin
 Result:=s;
 for i:=2 to Length(Result) do Result[i]:='*';
end;

вот проблема то...

[celovec]

Спасибо.
А если необходимо через одну, тоесть "А*д***"
Код намного увеличится?

[_SERGEYX_]

Конечно намного

function DoIt(s: string): string;
var i: integer;
  s1: string;
begin
  s1 := '';
  for i := 1 to Length(s) do
    if i mod 2 <> 0 then
      s1 := s1 + s[i]
    else
      s1 := s1 + '*';
  Result := s1;
end;

[celovec]

Еще раз спасибо. Вы очень помогли мне.

[chertovich]

Вот универсальный алгоритм для тебя:

function GetReplace(Str: string; Arr: array of Boolean): string;
var
  I: Integer;
begin
  Result := Str;

  for I := 1 to Length(Arr)  do
  begin
    if Arr[I - 1] then
      Result[I] := '*';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetReplace('Андрей', [True, False, True, True, False]));
end;

[celovec]

Воспользовался вариантом от
_SERGEYX_

function DoIt(s: string): string;
var i: integer;
  s1: string;
begin
  s1 := '';
  for i := 1 to Length(s) do
    if i mod 2 <> 0 then
      s1 := s1 + s[i]
    else
      s1 := s1 + '*';
  Result := s1;
end;

Подскажите как не учитывать проблемы, пробел не должен заменятся на *
Пример: "Андрей Зимовский"

[Пепел Феникса]

function DoIt(s: string): string;
var i: integer;
  s1: string;
begin
  s1 := '';
  for i := 1 to Length(s) do
    if (i mod 2 <> 0)or(s[i]=' ') then
      s1 := s1 + s[i]
    else
      s1 := s1 + '*';
  Result := s1;
end;