find alle time pattern

memoets text, er det en streng eller er det i array eller en form for collection ?

Har du styr på hvordan man anvender regexp i delphi ?

Memoets text er en streng

Jeg har leget lidt med regexp men vil ikke påstå at jeg har styr på det

Jeg kender slet ikke delphi, men hvis dette siger dig noget:

var
    Regex: TPerlRegEx;
    ResultString: string;

Regex := TPerlRegEx.Create(nil);
Regex.RegEx := '\d{2}:\d{2}:\d{2}';
Regex.Options := [preCaseless];
Regex.Subject := SubjectString;
Regex.Replacement := 'TEKST-SOM-BLIVER-INDSÆT-I-STEDET-FOR-XX:XX:XX';
Regex.ReplaceAll;
ResultString := Regex.Subject;

kikker lige på det

Desværre virker regexp ikke i delphi uden komponent

Prøv at kigge på det her eksempel:

http://www.swissdelphicenter.ch/en/showcode.php?id=1046

Meget simpelt måske

Find første tidsformat (xx:xx:xx) ??

Jeg tror hellere du skal finde ud af hvordan regular expressions virker i delphi.

http://www.regular-expressions.info/delphi.html

Her er den manuelle metode:

procedure ReplaceMemoText(Memo : TMemo;NewStr : string);
var
  i : integer;
  Temp : string;

procedure chk;
var
  t,m,s : integer;
begin
  if Temp[i+3]<>':' then
    exit;
  t:=StrToIntDef(Copy(Temp,i-2,2),-1);
  m:=StrToIntDef(Copy(Temp,i+1,2),-1);
  s:=StrToIntDef(Copy(Temp,i+4,2),-1);
  if (t>-1) and (t<24) and (m>-1) and (m<60) and (s>-1) and (s<60) then
  begin
    Delete(Temp,i-2,8);
    Insert(NewStr,Temp,i-2);
    inc(i,Length(NewStr));
  end;
end;

begin
  Temp:=Memo.Text;
  i:=3;
  while i<Length(Temp) do
  begin
    if Temp[i]=':' then
      Chk;
    inc(i);
  end;
  Memo.Text:=Temp;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ReplaceMemoText(Memo1,'*Ny tekst*');
end;

Fantastisk kroning, det virker

Læg et svar.

Tak til alle der prøvede at hjælpe :-)

ok