Hozzászólok Aktív témák

• #20 VladimirR nagyúr b14 #19

  Új Válasz 2004-09-15 19:58:41 #20

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  VladimirR

  nagyúr

  válasz b14 #19 üzenetére

  a form1.edit1.text-et ne egyben, hanem karakterenkent titkositsd - visszavonva; az i-t kicsereltem j-re, mert igy dolt lett az egesz
  
  valamint a ciklusod is zavaros kicsit
  
  var j:integer;
  c:char;
  s: tcaption;
  t:string;
  begin
  t:=form1.Edit1.Text;
  for j:=1 to length(t) do
  begin
  c:=chr(255-(ord(t[j])));
  s:=s+c;
  end.
  form1.Edit1.Text:=s;
  end;
  
  [Szerkesztve]

Hozzászólok Aktív témák