AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

simple for-schleife

Ein Thema von warefare · begonnen am 1. Jun 2007 · letzter Beitrag vom 1. Jun 2007
Antwort Antwort
Benutzerbild von yankee
yankee

Registriert seit: 10. Mär 2004
1.134 Beiträge
 
Lazarus
 
#1

Re: simple for-schleife

  Alt 1. Jun 2007, 22:57
Zitat von warefare:
Delphi-Quellcode:
for i:= 0 to length(text) do

begin

if (text[i] = 'i') and (text[i+1] = 'm') and (text[i+2] = 'g') then begin

position_g := PosEx('img', text, i);
  ShowMessage('Gefunden an Stelle: ' + inttostr(position_g) );
Lass mich raten: i ist immer gleich position_g. Warum noch PoSex? Die position hast du mit dem i doch schon!

Ausserdem sehe ich das nicht so, dass das ganz suppi funzt:

text :='i';
Wenn du jetzt deinen Algo darauf anwendest, sieht das beim ersten Zeichen so aus:
if (text[1] = 'i') and (text[2] = 'm') and (text[3] = 'g') then begin
--> AccessViolation!

ultimativ wäre wohl:

Delphi-Quellcode:
i := pos('img',text);
while i>0 do
begin
  memo1.lines.add(inttostr(i));
  i := posex('img',text,i+1);
end;
Also fast genau so wie NamenLozer bereits sagte. Das ist ausserdem deutlich schneller als deine Variante, da die Borlandentwickler die pos(ex) Funktionen direkt in Assembler gecodet haben und sich dabei sehr viele Gedanken gemacht haben, wie das ganze am schnellsten ist .
Letzter Tipp: Drogen. Machen zwar nicht glücklich, geben einem aber wenigstens das Gefühl glücklich zu sein.

Have a lot of fun!
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:04 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz