AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Pos Routine nachprogrammieren ohne den Assembler zu benutzen?
Thema durchsuchen
Ansicht
Themen-Optionen

Pos Routine nachprogrammieren ohne den Assembler zu benutzen?

Offene Frage von "-187-"
Ein Thema von hoan504 · begonnen am 26. Feb 2011 · letzter Beitrag vom 28. Feb 2011
Antwort Antwort
Seite 2 von 4     12 34      
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.033 Beiträge
 
Delphi 12 Athens
 
#11

AW: Pos Routine nachprogrammieren ohne den Assembler zu benutzen?

  Alt 27. Feb 2011, 12:04
For-Downto, Delphi-Referenz durchsuchenExit oder Delphi-Referenz durchsuchenBreak
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Notxor

Registriert seit: 28. Okt 2009
41 Beiträge
 
Delphi XE2 Professional
 
#12

AW: Pos Routine nachprogrammieren ohne den Assembler zu benutzen?

  Alt 27. Feb 2011, 12:12
der Index in der letzten If-Abfrage scheint auch nicht zu stimmen. mMn gehört da auf alle Fälle ein "j" mit hinein, nicht nur "i+1"
  Mit Zitat antworten Zitat
-187-

Registriert seit: 24. Sep 2005
483 Beiträge
 
Delphi 2010 Architect
 
#13

AW: Pos Routine nachprogrammieren ohne den Assembler zu benutzen?

  Alt 27. Feb 2011, 12:26
Nach der letzten else Bedingung wäre auch Result:=0; richtig anstelle von Result:=-1;

Oder täusche ich mich ?
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#14

AW: Pos Routine nachprogrammieren ohne den Assembler zu benutzen?

  Alt 27. Feb 2011, 12:42
Ich habe da mal einen möglichen Ablauf aufgeschrieben ...
Code:
// Beispiel-Daten
SubStr ist "test" // Länge 4
SuchStr ist "Dieses ist nur zum testen gedacht!" // Länge 34

// Das Ergebnis ist erst mal 0
Ergebnis = 0

Durchlaufen von 1 bis {Länge SuchStr=34} - {Länge SubStr=4} + 1 // also bis 31
  TempStr = Hole {Länge SubStr} Zeichen von SuchStr ab der aktuellen Position
  Wenn TempStr = SubStr Dann
    Ergebnis = Aktuelle Position
    Durchlaufen abbrechen
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)

Geändert von Sir Rufo (27. Feb 2011 um 17:26 Uhr)
  Mit Zitat antworten Zitat
hoan504

Registriert seit: 26. Feb 2011
8 Beiträge
 
Delphi 7 Professional
 
#15

AW: Pos Routine nachprogrammieren ohne den Assembler zu benutzen?

  Alt 27. Feb 2011, 13:39
an '187'

die -1 ist da nur anstatt 0 damit in meinem editfeld klar wird, dass sich das gesuchte ergebnis nicht im string befindet
  Mit Zitat antworten Zitat
-187-

Registriert seit: 24. Sep 2005
483 Beiträge
 
Delphi 2010 Architect
 
#16

AW: Pos Routine nachprogrammieren ohne den Assembler zu benutzen?

  Alt 27. Feb 2011, 13:43
Und was ist dann der Unterschied zur 0 ?

Kein Ergebnis = 0 afaik


Edit: Also es kommt jetzt drauf an..Wenn du die Pos Funktion nachbauen willst ist Kein Ergebnis = 0. Du dachtest wahrscheinlich das dass erste Vorkommnis = 0 ist, dem ist aber nicht so

Oooder aber du willst dir eine Custom Pos Funktion bauen wobei das auch da kein Sinn macht

Greetz

Geändert von -187- (27. Feb 2011 um 13:48 Uhr)
  Mit Zitat antworten Zitat
hoan504

Registriert seit: 26. Feb 2011
8 Beiträge
 
Delphi 7 Professional
 
#17

AW: Pos Routine nachprogrammieren ohne den Assembler zu benutzen?

  Alt 27. Feb 2011, 16:13
tja aber die die pos-funktion ist an mein programm angepasst, bzw. an edit felder angepasst. die 0 oder die -1 gibt nur an dass kein ergebnis gefunden wurde. Genauso gut hätte ich auch eine string ausgeben können.
  Mit Zitat antworten Zitat
-187-

Registriert seit: 24. Sep 2005
483 Beiträge
 
Delphi 2010 Architect
 
#18

AW: Pos Routine nachprogrammieren ohne den Assembler zu benutzen?

  Alt 27. Feb 2011, 16:33
Naja das macht ja noch weniger Sinn

Wozu brauchst du -1 für "kein Ergebnis" wenn 0 dafür schon vorhanden ist
  Mit Zitat antworten Zitat
Notxor

Registriert seit: 28. Okt 2009
41 Beiträge
 
Delphi XE2 Professional
 
#19

AW: Pos Routine nachprogrammieren ohne den Assembler zu benutzen?

  Alt 27. Feb 2011, 16:49
Code:
Durchlaufen von 1 bis {Länge SuchStr=34} - {Länge SubStr=4} // also bis 30
Gehört da nicht " 1 bis 34-4 +1" ?

Wenn man bei 30 anfängt, vergleicht man ja {30,31,32,33} es sollte jedoch mit 34 enden(wenn man bei 1 zu zählen beginnt; wäre 0 nicht sinnvoller?)
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#20

AW: Pos Routine nachprogrammieren ohne den Assembler zu benutzen?

  Alt 27. Feb 2011, 17:25
Code:
Durchlaufen von 1 bis {Länge SuchStr=34} - {Länge SubStr=4} // also bis 30
Gehört da nicht " 1 bis 34-4 +1" ?

Wenn man bei 30 anfängt, vergleicht man ja {30,31,32,33} es sollte jedoch mit 34 enden(wenn man bei 1 zu zählen beginnt; wäre 0 nicht sinnvoller?)
Ja, es muss +1 dazu

Und nein, bei 0 anfangen ist nicht sinnvoller, da ein String bei 1 anfängt und nicht bei 0.
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 4     12 34      


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 05:21 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz