|
Тема |
Превод на код - помогнете |
|
Автор |
MechoPuhO7 (непознат
) |
|
Публикувано | 03.04.07 16:26 |
|
|
Здравейте на всички много спешно ми трябва един делфи код да се преведе на пхп код:
var // promenlivi
i:integer;
s:string[255];
s1:string;
begin
s:=edit1.Text; // s = na faila koito trqbva da se uploadne
for i:=length(s) downto 0 do
// length = broq na simvolite v "s"
// ot i (prez 1) nadolu kum 0 da vurshi slednoto:
begin
if s='\' then begin // ako simvola na koito sme v momenta e raven na "\" togava:
s1:=copy(s,i+1,length(s)); // s1 = s (no ot simvol nomer i do kraq) >> slojil sum i+1 zashtoto i = "\" a na nas ni trqbva faila bez "\" za tova kopirame ot sledvashtiq simvol
break; // prekusvane
end;
end;
label1.Caption:=s1; // imeto na faila e s1
Благодаря ви предварително
|
| |
|
|
|