|
Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
Delphi 2006 Professional
|
Re: Text aus String wegschneiden?
12. Okt 2004, 10:08
Und hier auch noch ein Beispiel von mir 
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
myString : String;
ipString : String;
i : Integer;
begin
myString := ' <html><head><title>Current IP Check</title></head><body>Current IP Address: 217.231.61.98</body></html>';
i := Pos (' :',mystring); // Position von ":" ermitteln.
Delete (myString,1,i); // Alles bis zur "IP-Adresse" löschen
i := Pos (' <',mystring); // Position von "<" ermitteln.
ipString := Copy(myString,1,i-1); // Alles bis zur Postion von "<" -1 in einen neuen String kopieren.
Label1.Caption := ipString;
end;
Stephan B.
"Lasst den Gänsen ihre Füßchen"
|
|
|
Zitat
|