[cawwe]

добрый вечер! нужна помощь, нужно написать программу, которая выводит фамилию наоборот(нужно было продолжить код), но я запутался посмотрите что не так?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
s,a:string;
i,len:integer;
begin

s:=Memo1.Text;
len:=Length(s);

SetLength('п',len)
SetLength('р',len)
SetLength('в',len)
SetLength('е',len)
SetLength('т',len)

for i:= len downto 1 do
begin

a[len-1+1]:=s[i];
end;

Label1.Caption:=a

end;

end.

[lmikle]

Может так:

Код:

var
  I : Integer;
  S, Buf : String;
begin
  S := Memo1.Lines.Text;
  For I := 1 To Length(S) div 2 Do
    Begin
      Buf := S[i];
      S[i] := S[Length(S)-I+1];
      S[Length(S)-I+1] :=- Buf;
   End;
  Label1.Caption := S;
end;

[cawwe]

возможно, я точно помню что там такие строчки были

Код:

SetLength('п',len)
SetLength('р',len)
SetLength('в',len)
SetLength('е',len)
SetLength('т',len)

[M.A.D.M.A.N.]

Сообщение от cawwe

возможно, я точно помню что там такие строчки были

Код:

SetLength('п',len)
SetLength('р',len)
SetLength('в',len)
SetLength('е',len)
SetLength('т',len)

Это какие-то странные строчки, ибо SetLength может работать только с динамическими массивами (если ошибаюсь - поправьте), а тут строковые константы вместо массивов.

[cawwe]

Сообщение от M.A.D.M.A.N.

Это какие-то странные строчки, ибо SetLength может работать только с динамическими массивами (если ошибаюсь - поправьте), а тут строковые константы вместо массивов.

хмм....сейчас попробую ваш код

[cawwe]

выдал ошибку на этой строчке

Код:

S[Length(S)-I+1] :=- Buf;

[Error] Unit1.pas(38): Operator not applicable to this operand type

[M.A.D.M.A.N.]

Символ в строке может принимать только Char, ты же передаешь строку (да еще и с минусом).

[cawwe]

не пойму всё ровно выдаёт ошибку

[orion_asm]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
// Динамический символьный массив
arr : array of char;
// итератор для цикла
i : integer;
begin
//  Выделяем память под массив
SetLength(arr, 255);
arr[0] := 'П';
arr[1] := 'р';
arr[2] := 'и';
arr[3] := 'в';
arr[4] := 'е';
arr[5] := 'т';
arr[6] := '!';
{
выводим от длинны массива, которая заполнена символами
до его начала
}
for i := Length(arr) downto 0 do
Memo1.Lines.Add(arr[i]);
// Освобождаем память
arr := nil;

Если необходимо добавить еще символов, добавьте соответствующее кол-во индексов. В цикле менять ничего не надо, - автоматически определяет сколько занимает массив.

[cawwe]

спасибо огромное за помощь!