Bestimmten Teil eines Strings auslesen

[BorlanDelphiUser]

Hallo,
folgendes Problem ... ich habe folgenden String

Delphi-Quellcode:

  text := '<font color=white>08:15</font>';

nun möchste ich nur die Uhrzeit aus diesem String auslesen, also das was zwischen dem font-Tag steht.
Wie kann man das am besten anstellen?

[Darty]

mit Pos nach den eckigen Klammern suchen und dann rausschneiden .. Wäre so ne Idee ...

[BorlanDelphiUser]

Zitat:

Zitat von Darty

mit Pos nach den eckigen Klammern suchen und dann rausschneiden .. Wäre so ne Idee ...

Ja so eine Idee kam mir auch schon ... nur wie "scheide" ich irgendwas aus einem String raus?

[Computerbabalulu]

Hi,

Such mal nach Copy, Pos, PosEx...

Gruß Frank

[LoL]

Hinweis: copy?

[Jasocul]

Hier findest du ein paar Infos zur Stringverarbeitung

[BorlanDelphiUser]

Danke an alle .. ich hab gerade eben hier in der Suche noch was nützliches gefunden und umgeschrieben .. funktioniert super. Das Thema kann also geschlossen werden - Problem gelöst

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  myString : String;
  ipString : String;
  i      : Integer;
begin
  myString := '<font color=white>08:15</font>';
  i := Pos ('>',mystring); 
  Delete (myString,1,i); 
  i := Pos ('</font>',mystring); 
  ipString :=  Copy(myString,1,i-1);
  Label1.Caption := ipString;
end;

[Marcel Gascoyne]

Oder auch ganz einfach durch Suchen/Ersetzen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  myString : String;
begin
  myString := '<font color=white>08:15</font>';
  Label1.Caption := StringReplace(StringRepace(myString,'<font color=white>','',[rfReplaceAll]),'</font>',[rfReplaceAll]));
end;

Gruß,
Marcel

[Darty]

Bei Marcel Lösung ist halt die Vorraussetzung das es immer white ist :)

[BorlanDelphiUser]

Ja geanau, deswegen bevorzuge ich lieber meine Variante.