editi tersetn yazdırma

[ALUCARD]

arkadaşlar mehaba
bi arkadaşın odevi için bi sorum olacak

edit1 e girilen bilginin edit2 ters olarak yazdırması..


edit1.text:=erkan

edit2.text:=nakre olması lazım

[mege]

Kod: Tümünü seç

procedure TForm1.Edit1Change(Sender: TObject);
var i:integer;
begin
edit2.Text:='';
for i:= length(edit1.Text) downto 1 do edit2.Text:=edit2.Text+ copy(edit1.Text,i,1);
end;

[derya]

Kod: Tümünü seç

edit2.text:= ReverseString(edit1.text);

[ALUCARD]

teşekkur ederim çok işime yaradı

[mege]

Kod: Tümünü seç

function ReverseString(const AText: string): string;
var
  I: Integer;
  P: PChar;
begin
  SetLength(Result, Length(AText));
  P := PChar(Result);
  for I := Length(AText) downto 1 do
  begin
    P^ := AText[I];
    Inc(P);
  end;
end;

nihehühehhehi çok tanıdık geldi

[ALUCARD]

allah allah

Kod: Tümünü seç

edit2.text:= ReverseString(edit1.text);

ReverseString diye de bir kod varmış

bunu için derya hanıma çook teşekkur ediyorum.. .