na przekór ??

0

jak zamienic wpisany w np. edit text na odwrotny... ??

np :

TAK = KAT , NIE = EIN itp. --Ozyrys Pozdrawiam {hello}
Delphi 6

0

Dam Ci przykład z głowy, ale działa na 100%

procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
s:string;
begin
s:='';
for a:=Edit1.GetTextLen downto 0 do begin
s:=s+Edit1.Text[a];
end;
Edit1.Text:=s;
end;

0

Może tak :
var
buff : string;
i : integer;
begin
buff:=edit.text;
edit.text:='';
for i:=length(buff) downto 1 do
edit.text:=edit.text+buff[i];
end; ;)--Pozdrowienia {hello}
Chodek ;)
Delphi 6

0

THX za Odp. !!--Ozyrys Pozdrawiam {hello}
Delphi 6

0

na jakiejs stronce znalazlem funkcje StringOdwrotnie :)

function stringodwrotnie(s:string):string;
var I:integer;
spom:string;
begin
spom:='';
for i:=1 to length(s) do spom:=s[i]+spom;
result:=spom;
end;

uzywasz tego w taki sposob :
Edit1.Text := StringOdwrotnie(Edit1.Text);---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0