jak posegregować stringi

Odpowiedz Nowy wątek
2003-09-29 14:05
Pawe?
0

jak posegregować stringi na takie grupy:
1 -zawierają tylko cyfry
2- cała reszta

Pozostało 580 znaków

2003-09-29 14:11
0

Napisze schematycznie..

Jeżeli masz je wpakowane do TStringList to lecisz po kolejnych stringach i w każdym robisz pętle, czy każdy znak to cyfra (najprościej przez "ORD") - jeśli tak, to kopiujesz string do danej listy osobnej) i z tej usuwasz. Na końcu, na drugiej będą tylko z cyframi, a na aktualnej - pozostałe. Najprościej sprawdzać od końca, jeśli ma miejsce usuwanie stringów.


Pozostało 580 znaków

2003-09-29 14:17
Anonim
0

Mógłbyś napisać coś wiecej o funkcji Ord

Pozostało 580 znaków

2003-09-29 14:18
0

Chyba łatwiej sprawdzać poprzez np. StrToInt() + try except.

function IsInt(S: String): Boolean;
begin
  try
    StrToInt(S);
    Result := True;
  except
    Result := False;
  end;
end;

Potem tylko pętelka:

{...}
  if IsInt('string') then  // to jest liczba
{...}

Pozostało 580 znaków

2003-09-29 15:06
0

Chyba łatwiej sprawdzać poprzez np. StrToInt() + try except.

To jest powód, dlaczego należy od Pascala zaczynać, a nie od Delphi (choć przyznaję, że sam zaczynałem).
Zamiast takiej kombinacji stosuj Val. StrToInt jedynie wywołuje Val i jeżeli nastąpi błąd to wywoła wyjątek. Stosując Val omijamy wywołanie StrToInt i co najważniejsze try..except. Jeżeli spojrzałbyś do skompilowanego kodu, wiedziałbyś, dlaczego należy używać try..except tylko wtedy, gdy inaczej zastąpić się nie da lub byłoby to trudne albo zwiększało znacznie złożoność programu.


Jest jeszcze jeden błąd :)
Unix is user friendly. It's just very particular about who it's friends are.

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