Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by himitsu,
18. Aug 2010
function GetNum(S: String): Extended;
var
i: Integer;
begin
Result := 0;
for i := 1 to Length(S) do
if S in then begin
Delete(S, 1, i - 1);
Break;
end;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by himitsu,
18. Aug 2010
Das ist schon das Schnellste, solange du nicht jedes Zeichen einzeln anhängst.
- gleichlangen String resservieren,
- alles passende rüberkopieren (zeichen mitzählen)
- Stringlänge korrekt setzen
oder
- gültige Zeichen zählen
- String passender Länge reservieren
- alle gültigen zeichen rüberkopieren