Доброго времени суток All!
У меня есть проблема!
Есть текст на delphi, который мне надо переделать на пхп!
Помогите мне плз, а то совсем замучался(я новичок в пхп)!

procedure TForm1.Combination(k,l:Integer);
Var
i:Integer;
begin
if(k<=l) Then
For i:=1 To Length(a) Do
begin
s:=s+a[i];
Combination(k+1,l);
Delete(s,k,1);
end
Else
Begin
Memo1.Lines.Add(s);
End;
end;



Спасибо за внимание!

Цитата(Frikazoid @ 15.8.2002, 01:40)

TForm1.Combination(k,l:Integer)

php - это server-side скрипты для веб-программинга, грубо говоря их основная функция - динамически создать страницу и выдать юзеру в окошко броузера, предварительно порывшись в БД или по-быстрому полазив по FTP-серверу (к примеру). а дельфевый код который ты написал - это уже пардон работа с vcl. короче говоря, на пхп это не переведешь

Ну да! Я почти переделал! Но там остался баг, которого не могу отловить!

Вот что у меня получилось!
Это совсем не то, но может кто-то подкорректирует!

Я просто не снаю ПХП

<?php
function strarray($in_string) {
if(!($in_string)) return 0;
for($i=0;$i<=(strlen($in_string)-1);$i++) {
$current_char=substr($in_string,$i,1);  
$string_array[$i]=$current_char;}
return $string_array;}

$a=strarray('1234567890qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM');
$s='                                        ';

function combination($k,$l) {
if($k<=$l) for($i=1; $i=62; $i++) {
$s="$s$a[$i]";
combination($k+1,$l);
$t=strarray($s);
$t[$k]="";
$a=implode($t,"");}
else echo($s);}

combination(1,2);
?>

А ты напиши скрипт...
Напиши в чем проблема...

Код я уже писал! А проблема в том, что не работает!

Вот я кое-что подправил, но всё равно не то!

Он мне должен выводить такую фишку:
11
12
13
......
21
22
23
......
ty
tu
ti
...... ииииииии таккккк далее..
Смысл понятен?
Мне надо комбинации символов перебрать!


<?php
$a=strarray('1234567890qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM');
$s='                                                                               ';
$t=array();

function strarray($in_string) {
if(!($in_string)) return 0;
for($i=0;$i<=(strlen($in_string)-1);$i++) {
$current_char=substr($in_string,$i,1);  
$string_array[$i]=$current_char;}
return $string_array;}

function combination($k,$l,$a,$s) {
if($k<=$l) for($i=0;$i<=60;$i++) {
$s="$s$a[$i]";
combination($k+1,$l,$a,$s);
$t=strarray($s);
$t[$k]=" ";
$s=implode($t,"");}
else echo($s);}

combination(0,1,$a,$s); //Второй пораметр это кол-во цифр!
?>

<?php
$a=strarray('1234567890qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM');
$j='                                                                       ';
$t=array();

function strarray($in_string) {
if(!($in_string)) return 0;
for($i=0;$i<=(strlen($in_string)-1);$i++) {
$current_char=substr($in_string,$i,1);  
$string_array[$i]=$current_char;}
return $string_array;}

function combination($k,$l,$a,$u) {
$s=$u;
if($k<=$l)for($i=0;$i<=60;$i++) {
$s="$s$a[$i]";
$y="";
for($z=0;$z<=$l;$z++) if(!($z==$k)) {$f=substr($s,$z,1);$y="$y$f";}$s=$y;
combination($k+1,$l,$a,$s);
}
else {echo($s);echo("<br>");}}
combination(0,2,$a,$j);
?>

Это уже похоже на правду, но всё равно фиговый код!
Нужна помощь специалиста!
             

въехал чего вы хотите... но не до конца... и до конца после всего выпитого пива не въеду... но могу кой-чо подсказать:

1) стринговые переменные в ПХП - они и так работают как символьные массивы, т.е. если сделать

Код

<? $str = "BLA-BLA-BLA"; echo $str[0].$str[3]; ?>

то выдаст оно "B-", т.е. нулевой и третий символы.
2) рекурсия в ПХП - дело жутко тормозное, лучше ее не юзать...

Я так и думал, что это массивы!
Но когда я пытался перевести Delphi2PHP, то у меня ни чего не
получалось! Вот я и подумал, что проблема в том, что надо строку в
массив перегнать! Оказалось, что проблема в другом! Короче, этот
алгоритм не работает, как хотелось! Если кто-то знает как выполнить
перебор всех комбинаций из 62 по 3(к примеру) на пхп, то напишите плз!

если просто все символьные комбинации (из заданных символов), то без проблем (сразу б сказал)

Код

<? $str="abcdefghijk"; // и так далее $l=strlen($str); for($i=0;$i<$l;$i++) for($j=0;$j<$l;$j++) for($k=0;$k<$l;$k++) $result[$i*$l*$l+$j*$l+$k]; // все комбинации - в массиве $result ?>

например, вывод $result на машину юзеру:

Код

<? for($i=0;$i<sizeof($result);$i++) echo $result[$i]."<br>"; ?>

вот так... все размеры определяются динамически, если что и править, то только $str

и без рекурсии