Variable aus dem Script in Delphi holen...

[TheMiller]

So, habe jetzt längere Zeit rumgefriemelt und es doch nicht geschafft.

Ich Connecte jetzt mit dem PHP-Script und empfange Daten. Diese lade ich mittels der Funktion "Explode" in ein Array ein. Wie kann ich jetzt die Daten aus dem Array wieder rausholen?

Bzw. andere Frage. Es wurde hier von einem Trennzeichen gesprochen... Wenn ich, wie gesagt die Spalten A,B,C,D habe und dort die Werte 1 2 3 4 drinstehen, dann muss ich doch den Wert plus das Trennzeichen eintragen lassen. Sprich Wert+Trennzeichen also 1, und dann bei Spalte B 2, usw...?

Hoffe ihr versteht es... Ich bekomme es nicht gebacken. Sorry Leute..

Hier auch wieder ein bissl Code:

Delphi-Quellcode:

type TStringDynArray =  Array of String;

implementation

uses Unit2;

{$R *.dfm}

function Explode(const Separator, S: string; Limit: Integer = 0): TStringDynArray;
var
  SepLen: Integer;
  F, P: PChar;
  ALen, Index: Integer;
begin
  SetLength(Result, 0);
  if (S = '') or (Limit < 0) then Exit;
  if Separator = '' then
  begin
    SetLength(Result, 1);
    Result[0] := S;
    Exit;
  end;
  SepLen := Length(Separator);
  ALen := Limit;
  SetLength(Result, ALen);

  Index := 0;
  P := PChar(S); 
  while P^ <> #0 do 
  begin
    F := P; 
    P := AnsiStrPos(P, PChar(Separator)); 
    if (P = nil) or ((Limit > 0) and (Index = Limit - 1)) then P := StrEnd(F);
    if Index >= ALen then 
    begin 
      Inc(ALen, 5);
      SetLength(Result, ALen); 
    end; 
    SetString(Result[Index], F, P - F);
    Inc(Index); 
    if P^ <> #0 then Inc(P, SepLen); 
  end;
  if Index < ALen then SetLength(Result, Index); 
end;

procedure TForm1.Button1Click(Sender: TObject);
var sl : TStringlist;
begin
  sl := TStringList.Create;
  sl.Add('$db_server='+Edit1.Text);
  sl.Add('$db_name='+Edit2.Text);
  sl.Add('$db_user='+Edit3.Text);
  sl.Add('$db_passwort='+Edit4.Text);
  sl.Add('$mode=insert');
//  Explode(Trennzeichen, String, Index:Integer)
  Explode(',',idHttp1.Post('http://www.xxx.com/xxx.php',sl),0);
  FreeAndNil(sl);
end;

Bitte helft mir...