1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

$zaehler = 0;
$service = array();
$result  = mysql_query("SELECT * FROM sk_schnittstelle_historie ORDER BY umschh_id ASC");
while($felder = mysql_fetch_assoc($result)) {  
  $service[$zaehler]['id']       = $felder['umschh_id'];
  $service[$zaehler]['aufgabe']  = $felder['umschh_aufgabe'];
  $service[$zaehler]['kurztext'] = utf8_encode($felder['umschh_text']);
  $service[$zaehler]['text']     = utf8_encode($felder['umschh_beschreibung']);
  $zaehler++;
}
echo json_encode($service);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Services_laden;
var
  sl : TStringList;
  data : Array[0..25] of String;
begin
  sl := TStringlist.Create;
  sl.Add('Merker=87');

  try
    data := IdHTTP1.Post('http://' + Hostname + '/mds/dp/sql/select.php',sl);
    showmessage(data[0]);
  except
    Exit;
  end;

  sl.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Services_laden;
var
  sl : TStringList;
  OB : ISuperObject;
  i : integer;
begin
  sl := TStringlist.Create;
  sl.Add('Merker=87');

  try
    OB := SO(IdHTTP1.Post('http://' + Hostname + '/mds/dp/sql/select.php',sl));
    for i := 0 to OB.AsArray.Length - 1 do
      ShowMessage(OB.AsArray[i].S['text']);
  except
    Exit;
  end;

  sl.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

class function TSuperAvlEntry.Hash(const k: SOString): Cardinal;
var
  h: cardinal;
  i: Integer;
begin
  h := 0;
{$Q-}
  for i := 1 to Length(k) do
    h := h*129 + ord(k[i]) + $9e370001;  // ****** Fehlerzeile ******
{$Q+}
  Result := h;
end;