hi,
du erhälst eine "Textzeile" zurück, also die als erstes in einem String sichern:
Quelltext
1:
2:
3:
4:
| var
S:String;
S := IdHTTP1.Get('http://localhost/test.php?s=0');
... |
Nun enthält der String S z.b. "Spasskasse;44444444;4343433"
als nächstes musst du diesen String zerlegen und ggf. eine Typumwandlung machen, damit die Werte korrekt in die Tabelle übernommen werden. (In Diesem Beispiel nehmen wir mal eine Kontoverbindung).
Feld 1 in Tabelle: Bankname - Zeichenkette
Feld 2 in Tabelle: Kontonummer - Integer
Feld 3 in Tabelle: Bankleitzahl - Integer;
also machen wir folgendes (geht auch kürzer, der Lesbarkeit etwas mehr):
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| var
xBN: String;
xKtn: Integer;
xBlz: Integer;
S: String; // der von oben
...
S:=.... // siehe oben
xBN:= Copy(S,1,Pos(';',S)-1); // alles von S[1] bis S[;]-1 kopieren
Delete(S,1,Pos(';',S)); // Jetzt den Banknamen incl. ";" löschen
xKtn:= StrToInt(Copy(S,1,Pos(';',S)-1)); // wie oben, nur noch Typumwandlung
Delete(S,1,Pos(';',S)); // Jetzt die KtNr incl. ";" löschen
xBlz:= IntToStr(Copy(S,1,Pos(';',S)-1));
// Jetzt die Paradox-Tabelle füllen
Tabelle.Append;
TabelleFieldBN.Value:= xBN;
TabelleFieldKtn.Value:= xKtn;
TabelleFieldBlz.Value:= xBlz;
Tabelle.Post; |
Ich hoffe, nichts vergessen zu haben - auf die schnelle nicht geprüft und einfach in Forum gehackt.
Grüße
MSCH
) suchst. Dann analog wie oben beschrieben.