Variable aus dem Script in Delphi holen...

[TheMiller]

Genau!

Also, ich rufe die Informationen mit einem PHP-Script ab. Dann kann ich mit echo mir alle Daten in ein Memo anzeigen lassen. Meine DB hat die Spalten 'Datum' 'Zeit' 'Name' 'Wert'. Dann stünde im Memo-Feld:

01.11.2004, 14:00, Müller, 1

Jetzt möchte ich aber in Label1.Caption das Datum haben, dann in label2.Caption die Zeit usw...

Funktioniert das auch mit $_POST oder muss ich da was mit "_Get" machen? Wie gesagt. Weiter oben stehen alle meine Codes...

[jfheins]

Dann brauchst du ein trennzeichen,
welches garantiert in keinem Feld vorhanden ist (und wenn, nur im letzten),
und schon kannst du explode anwenden und fertig.

[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.. :roll:

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...