 |
Delphi Tips & Tricks | softsale > Delphi Tips & Tricks |
| < poprzednia rada | następna rada > |
Użyteczna funkcja - odwrotnie string
Aby odwrócić string w elegancki sposób można użyć następującej funkcji:
.......
implementation
{$R *.DFM}
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;
|
|
SOFTSALE - Oprogramowanie i Szkolenia softsale@softsale.com.pl 03-565 Warszawa , ul. Borzymowska 43 lok. 301C tel/fax:4084840,GSM:0607612428 |