czytanie po między dwoma wyrazami

0

Witam.
Chce wrzucić tekst do memo w którym będą różna zmienne np.

"Jestem drwalem mam 30 lat stażu narąbania się w barze"

i w tym zdaniu będzie zmieniał się wiek na inny co zostanie wrzucony do memo.

czy Idze zrobić tak żeby wiek np.30 lub inna liczba był z tego zdania kopiowany i wrzucany do edit1

Najlepsza opcja była by taka gdyby działało taki coś: program szuka "drwalem mam" i "lat stażu" i skopiował zawartość pomiędzy nimi

0

Gotowca nie będzie, ale będzie wskazówka:

Pos
Delete
Copy
0

czy Idze zrobić tak żeby wiek np.30 lub inna liczba był z tego zdania kopiowany i wrzucany do edit1

Jeśli chodzi tylko o szukanie liczby, to ja bym wykorzystał wyrażenia regularne.

0

Rozwiązań jest wiele.
Najprościej jest wykorzystać pętlę For; coś a'la:

Function Wytnij(Str: String): String;
Var I, Pocz, Kon: Integer;
Begin
 Pocz := 0;
 Kon  := 0;
 For I := 1 To Length(Str)-1 Do
 Begin
  if (Str[I+1] In ['0'..'9']) Then
  Begin
   Kon := I;
   Break;
  End;
  if (Str[I] In ['0'..'9']) Then
   if (Pocz = 0) Then
    Pocz := I;
 End;
 Delete(Str, 1, Pocz);
 Delete(Str, Kon, Length(Str));
 Result := Str;
End;

Funkcja nie testowana.
Pisane z pamięci.

0

Ok, dziękuje
Już wszystko gra

1 użytkowników online, w tym zalogowanych: 0, gości: 1