Ausschneiden mit Delete

[Kompon Ente]

Hallo,

ich lese aus der Registry HKCU\Software\Microsoft\Windows\CurrentVersion\Int ernet Settings\ den Wert ProxyServer.

Dieser sieht folgendermaßen aus:
ftp=195.100.85.159:3128;gopher=195.100.85.159:3128 ;http=195.100.85.159:3128;https=195.100.85.159:312 8

Jetzt möchte ich alles, was vor http= usw. steht wegschneiden.
Danach möchte ich bis zum : lesen und den Port in ein Extrafeld schreiben und ebenfalls bis zum ; lesen und den Rest wegschneiden.

Meine Abfrage sieht folgendermaßen aus:

Delphi-Quellcode:

    // prüfen, ob es sich um Zahlen handelt
    if (Ord(s[1])<=48) and (Ord(s[1])<=57) then
    begin
      // lesen bis zur Stelle, wo http= beginnt
      if pos(s,'http=') < 0 then
      begin
        // vorderen Teil wegschneiden
        Delete(s,6,pos('http=',s)-1-5);
        // in eine Variable kopieren
        s := copy(s,1,pos(':',s)-1);
        // usw.
        s := s + copy(s,1,pos(';',s)-1);
      end
      else
        MessageDlg('Kein HTTP-Proxy eingetragen!',mtInformation,[mbOk],0);
    end
    else
      ShowMessage('Rien ne va plius!');

Weiß jemand weiter? Ich nicht mehr..

[barf00s]

sIPs: string = 'deinmumustringdaoben';

sIPs := Copy(sIPs, Pos('http=', sIPS), Length(sIPs));
sIPs := Copy(sIPs, 1, Length(sIPs) - Pos(':', sIPs) - 1));

[Kompon Ente]

Könntest du dich bitte etwas deutlicher ausdrücken? Und vllt. auch etwas gesitteter @ deinmumudingdaoben

[barf00s]

wieso noch deutlicher? schau in der hilfe was Copy() macht...

und wieso noch gesitteter? was is an dem wort nich i.o.?

[Kompon Ente]

Das Problem ist, dass er gar nicht in die Abfrage reinkommt:

Delphi-Quellcode:

if (Ord(s[1])<=48) and (Ord(s[1])<=57) then
begin
  if pos(s,'http=') < 0 then

Er geht nach:
if (Ord(s[1])<=48) and (Ord(s[1])<=57) the direkt in die Else!

[r2c2]

Zitat von Kompon Ente:

if (Ord(s[1])<=48) and (Ord(s[1])<=57) the

Damit prüfst du, ob das 1. Zeichen eine Zahl ist. Das erste Zeichen ist aber ein 'f', deshalb springt das ins else. Warum prüfst du das denn auch...?

mfg

Christian

[Kidix]

du musst es erst prüfen wenn du's geparst hast....

[Jasocul]

Delphi-Quellcode:

if (Ord(s[1])<=48) and (Ord(s[1])<=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.

[Kompon Ente]

Ja äh... häh?

Sorry, aber ich denke irgendwie kompliziert.

Was muss ich denn sonst prüfen?

[Jasocul]

Welche Bedingung soll denn dort erfüllt sein?
Beschreibs doch mal in Worten.