[Delphi/PHP] Problem z array

0

Mam taki kod w php i musze go przetłumaczyć na delphi ale zupełnie nie wiem jak próbowałem na wszystkie chyba sposoby i mi nie działało czy możecie mi pomóc?

<? for ($i = 1; $i < count ($result_array); $i++) { $player_array = explode (" ", $result_array[$i], 3); $player[$player_counter] = array ( 'player' => ereg_replace ("\^[0-9]{1}", "",str_replace ("\"", "", $player_array[2])), 'ping' => intval ($player_array[1]), 'frags' => intval ($player_array[0])); ?> <? echo $player[$player_counter][player]; ?></td> <? echo $player[$player_counter][ping]; ?></td> <? echo $player[$player_counter][frags]; ?></td> </tr> <? } ?>

a wartość m/w tak:

26 45 "kaze +"
31 30 "lol"
28 50 "makavelithedon"
10 43 "King"
3 130 "Rocky"
</quote>

0

Pomoże mi ktoś? Sry za doublepost :/

0

Może napisz co robi ten kod, bo nie wszyscy znają się na PHP.

0

masz tu cały kod:

<? $fp = fsockopen ("udp://83.142.83.244", 28070); $send = chr (0xFF) . chr (0xFF) . chr (0xFF) . chr (0xFF) . "getstatus"; fwrite($fp, $send); $serverdata = fread($fp, 8192); // Variables $result_array = explode("\n", $serverdata); $servervars = explode("\\", $result_array[1]); $hostname = array_search("sv_hostname", $servervars)+1; $mapname = array_search("mapname", $servervars)+1; array_pop($result_array); array_shift ($result_array); ?> <html> <head> <title> Simple Quake3 Stats</title> </head> <body>

Simple Quake3 Stats

<? echo $servervars[$hostname] . " - " . $servervars[$mapname]; ?>

Player Ping Frags

$player_array = explode (" ", $result_array[$i], 3);

$player[$player_counter] = array (
'player' => ereg_replace ("^[0-9]{1}", "",str_replace (""", "", $player_array[2])),
'ping' => intval ($player_array[1]),
'frags' => intval ($player_array[0]));
?>

<? echo $player[$player_counter][player]; ?></td> <? echo $player[$player_counter][ping]; ?></td> <? echo $player[$player_counter][frags]; ?></td> </tr> <? } ?> </table> </body> </html>

słurzy do przemiany zapytan z servera gry na dane

0
for I:=1 to result_array.Items.Count do begin
  player_array:=explode (" ", $result_array[$i], 3);//CO ROBI TA FUNKCJA? 
  $player[$player_counter] = array (
    'player' => ereg_replace ("\^[0-9]{1}", "",str_replace ("\"", "", $player_array[2])),
    'ping'   => intval ($player_array[1]),
    'frags'  => intval ($player_array[0])); //CO TO ZA ZAPIS?
end;
ShowMessage(player[player_counter].player+' '+player[player_counter].ping+' '+player[player_counter].ping);

Sorry, ale nie jestem chyba w stanie więcej Ci pomóc. Spróbuj odpowiedzieć na ww. pytania.
Może spróbuj PHP4Delphi albo innych komponentów. Będę próbował pomoagać... Wciąż... :-D

0

zupełnie tak jak w twoim opisie mi napisałeś oO

0

Napisz linia po linii co robi każda linia!

0

$player[$player_counter] = array (
'player' => ereg_replace ("^[0-9]{1}", "",str_replace (""", "", $player_array[2])),
'ping' => intval ($player_array[1]),
'frags' => intval ($player_array[0]));
ta funkcja zamienia

26 45 "kaze +"
31 30 "lol"
28 50 "makavelithedon"
10 43 "King"
3 130 "Rocky"

w array i tylko przetłumaczenie tej funkcji jest mi potrzebne!

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