Avatar billede jamal_s Nybegynder
29. april 2003 - 14:17 Der er 5 kommentarer og
5 løsninger

array ?

hejsa..

test="/blah?betaid=456674.4569.344235.324435"

hvordan får jeg til at delpi tjekke hvertegn, så til sidste jeg får sådan en resultat

456674.4569.344235.324435

altså bare tal, og punktum, alt andet skal ku slettes..
Avatar billede jpvj Nybegynder
29. april 2003 - 14:23 #1
Lidt frihåndskodning :-)

i : integer;
st : string;

begin
  i := 0;
  st := '';
  While (i<length(test)) do
  begin
    if (test[i]>='0' and test[i]<='9') or test[i]='.' then st = st + test[i];
    inc(i);
  end;
end;
Avatar billede jpvj Nybegynder
29. april 2003 - 14:24 #2
resultatet står så i variablen st efter løkken...

JP
Avatar billede tolderlund Nybegynder
29. april 2003 - 15:16 #3
Lidt frihåndskodning fra mig:
var
  i: Integer;
begin
  for i := Length(test) downto 1 do
    if not (test[i] in ['0'..'9','.']) then
      Delete(test, i, 1);
Avatar billede athlon-pascal Juniormester
29. april 2003 - 17:42 #4
Og lidt herfra:
function TalOgPunktum(S: String): String;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(S) do
    if (S[I] in ['0'..'9', '.']) then
      Result := Result + S[I];
end;
Avatar billede jamal_s Nybegynder
29. april 2003 - 18:03 #5
ingen forklaring :-(
Avatar billede jamal_s Nybegynder
29. april 2003 - 18:08 #6
procedure TForm2.Button6Click(Sender: TObject);
var
  yid: string;
  i: Integer;
begin
  yid := memo1.Lines[3];
  for i := Length(yid) downto 1 do
    if not (yid[i] in ['0'..'9','.']) then
      Delete(yid, i, 1);
  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>memo2.Lines[0] := i;
  memo2.Lines[1] := yid;
end;

fejl:
[Error] Unit2.pas(67): Incompatible types: 'String' and 'Integer'
Avatar billede hreiff Nybegynder
29. april 2003 - 20:02 #7
i er en integer (=1) men memo2.lines[0] er en string. Derfor.

Hvis du dropper linjen får du tal og . i memo2.lines[1]
Avatar billede kfz Nybegynder
30. april 2003 - 08:40 #8
procedure TForm2.Button6Click(Sender: TObject);
var
  yid: string;
  i: Integer;
begin
  yid := memo1.Lines[3];
  for i := Length(yid) downto 1 do
    if not (yid[i] in ['0'..'9','.']) then
      Delete(yid, i, 1);
    memo2.Lines[0] := inttostr(i);
  memo2.Lines[1] := yid;
end;
Avatar billede jamal_s Nybegynder
30. april 2003 - 12:11 #9
kfv..du må også gerne give mig et svar :)
Avatar billede kfz Nybegynder
30. april 2003 - 14:19 #10
svar
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester