czytanie po między dwoma wyrazami

Odpowiedz Nowy wątek
2011-08-06 11:25
Ktobytaniebłądzi
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

edytowany 1x, ostatnio: madmike, 2016-12-13 18:26

Pozostało 580 znaków

2011-08-06 12:18
0

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

Pos
Delete
Copy

Pozostało 580 znaków

2011-08-06 13:57
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.

Pozostało 580 znaków

2011-08-06 15:26
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.


Pozostało 580 znaków

2011-08-06 17:21
ok
0

Ok, dziękuje
Już wszystko gra

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

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