Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
1. Jan 2011
Weil ich's grade nochmal sehe.
Die Strings sind ja 1-basierens (wie schon erwähnt)
Diese 2 sind nun zwei Mal die 1 (1+1=2, wenn man was wegkürzt) oder eher 4 Mal die 1 (1+1+1-1=2).
entweder
+1: einmal vom Pos, für die Umrechnung
+1: und das Length(SubString), um dort auf das letzte Zeichen umzurechen
Result := Length(S) - Length(SubStr) - Result + 2;
Result := Length(S) -...
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
3. Nov 2010
Also der Code ist ja extremst grausam und unperformat.
Copy(S,i,1) = S.
Und die Unmasse an String-Concationen ist sehr unperformant.
program Project5;
{$APPTYPE CONSOLE}
uses
Windows, StrUtils;