Første tal i en string

Hvordan finder man det første, det andet osv tal i en string? altså hvis der står 1234 i stringen skal jeg kunne finde for eksempel kun 1 tallet.. hvordan gør jeg det?
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

du kan ligge dit 1 tal ind i en streng, og så kan du kigge om den næste char er et tal også. Hvis dette er tilfældet ligges den også ind i din forrige streng. Dvs. at den nu er 12.

Dette bliver du ved med, indtil du rammer det første "ikke tal".
og så kan du lige lave en StrToInt(strengen);.

-------------------------------
Hilsen Jimmi Westeberg
http://www.westsworld.dk

Kan man ikke tage
begin
Strengnavn[0]//kan ikke huske om 0 eller 1 er det tal man skal bruge!
end;



Windows er verdens beste trojan!

Hvordan finder man det første, det andet osv tal i en string? altså hvis der står 1234 i stringen skal jeg kunne finde for eksempel kun 1 tallet.. hvordan gør jeg det?
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

du kan ligge dit 1 tal ind i en streng, og så kan du kigge om den næste char er et tal også. Hvis dette er tilfældet ligges den også ind i din forrige streng. Dvs. at den nu er 12.

Dette bliver du ved med, indtil du rammer det første "ikke tal".
og så kan du lige lave en StrToInt(strengen);.

-------------------------------
Hilsen Jimmi Westeberg
http://www.westsworld.dk

Det lyder som en rigtig god måde! men ved ikke lige hvordan.. Du har ikke lige noget kode du kan vise mig med det?
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Vi kan lige lave et hurtigt eksempel der når man trykker på en knap viser en besked med det første bogstav i en string!

procedure TForm1.Button1Click(Sender: TObject);
var streng: string
begin
Streng:= 'Hej';
ShowMessage(Streng[1]);
ShowMessage(Streng[2]);
ShowMessage(Streng[3]);
end;

Windows er verdens beste trojan!

Hvad nu hvis jeg så i en streng har et a, g, h eller et andet bogstav men det samtidigt kan være et tal og så jeg vil have den til at lave alle a'er om til 17 og g'er om til 27 osv.. Hvordan kan jeg gøre det?
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Delphi har sikkert en indbygget funktion til det, som den har med så meget andet, men uden kan det gøres ved denne funktion, som erstatter alle a'er med 17 (hvis altså du mener tallet 17 og ikke ASCII-værdien 17)

function ReplaceString(S : String) : String;
var
  I : Integer;
begin
  for I := 0 to Length(S)-1 do
  if S[I] = 'a' then S := Copy(S, 0, I-1) + '17' + Copy (S, I+1, Length(S));
  Result := S;
end;

_______________________________________
-----------------------{ nife}------------------------_______________________________________

[Redigeret d. 28/02-04 16:07:58 af Nicolai Lyster Fersner]

Det står i en af artiklerne om string...

Delphi har sikkert en indbygget funktion til det, som den har med så meget andet, men uden kan det gøres ved denne funktion, som erstatter alle a'er med 17 (hvis altså du mener tallet 17 og ikke ASCII-værdien 17)

Kode 

function ReplaceString(S : String) : String;
var
  I : Integer;
begin
  for I := 0 to Length(S)-1 do
  if S[I] = 'a' then S := Copy(S, 0, I-1) + '17' + Copy (S, I+1, Length(S));
  Result := S;
end;

_______________________________________
-----------------------{ nife}------------------------_______________________________________

[Redigeret d. 28/02-04 16:07:58 af Nicolai Lyster Fersner]

Hm har prøvet din kode... Og den virker vist fint. Men når jeg kører programmet kommer den med en EAccess fejl om at TForm3 ikk findes. Jeg kan huske jeg har fået denne fejl før men jeg kan ikke huske hvordan jeg løser det.. Nogen der kan hjælpe?
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------