Forum: Object-Pascal / Delphi-Language
Delphi
by Jasocul,
26. Jul 2005
Dann kannst du dir das erste if sparen.
Mit "Pos('http',s) > 0" stellst du das sowieso fest. Übrigens sind die Parameter bei dir falsch herum.
Schau mal auf meiner Homepage das "Tutorial" zur Stringverarbeitung an. Ich glaube, ich habe das dort sehr übersichtlich erläutert.
Forum: Object-Pascal / Delphi-Language
Delphi
by Jasocul,
26. Jul 2005
Welche Bedingung soll denn dort erfüllt sein?
Beschreibs doch mal in Worten.
Forum: Object-Pascal / Delphi-Language
Delphi
by Jasocul,
26. Jul 2005
if (Ord(s)<=48) and (Ord(s)<=57) then
begin
if pos(s,'http=') < 0 then
Prüf nochmal deine Bedingung. Das ist irgendwie quatsch.
Wenn das kleiner als 48 ist, dann ist es auch kleiner als 57.
Du kannst die vordere Hälfte weglassen, bzw. nochmal prüfen, was du da eigenltich machen wolltest.