Forum: Netzwerke
Delphi
by 3_of_8,
18. Aug 2007
Das dürfte aber relativ langsam sein, und außerdem wird dadurch '4a2' zu 4 und nicht, wie gewünscht, zu 42.
Forum: Netzwerke
Delphi
by 3_of_8,
18. Aug 2007
Bei meiner Methode benutzt Delphi keine größer-/kleiner-Vergleiche, sondern ein set. (Effektiv ein Bitvektor)
Das ist sogar um einiges schneller als die Vergleichsmethode.
Forum: Netzwerke
Delphi
by 3_of_8,
17. Aug 2007
Du hast die Großbuchstaben vergessen. Übrigens geht das auch einfacher:
procedure TForm1.Button1Click(Sender: TObject);
var s, t: String;
I: Integer;
begin
t:=Edit1.Text;
for I:=1 to length(t) do
Forum: Netzwerke
Delphi
by 3_of_8,
17. Aug 2007
Ja. Zu wenig Kaffee, zu viel Copy&Paste.
Forum: Netzwerke
Delphi
by 3_of_8,
17. Aug 2007
procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
begin
x:=length(inttostr(Edit1.Text));
showmessage(x);
end;
Bzw. leichter:
procedure TForm1.Button1Click(Sender: TObject);