Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)

  Re: Problem mit txt Dateien

    Delphi
    by Thunderchild, 22. Feb 2004
  @ Tyrael Y.
  
  wenn es auf diese Weise an Strings geht, sollte der Index wohl doch lieber bei 1 anfangen, nicht bei 0.
  
  @Bit Juggler
  Interessant. Habs mal getestet, Deine Funktion geht und ich hab kapiert wie und warum *puh*. Allerdings läuft sie IMMER die volle Anzahl an Zeichen ab, während meine nur so oft läuft, bis nix mehr da ist. :roll:
  Wenn man viele viele wundervolle Strings hat, die...
• Forum: Win32/Win64 API (native code)

  Re: Problem mit txt Dateien

    Delphi
    by Thunderchild, 20. Feb 2004
  Ich weis nicht, ob diese Ersetzen-Routine wirklich funzt.
  Edit:
  Denn wenn da mehrere Spaces hintereinander stehen, wird er jedes zweite übergehen, da alles nach dem Löschen um eins nach vorn rutscht, Dein Index aber auch um eins weiter geht. Das macht dann einen Suchschritt von zwei Zeichen.
  
  
  function bla(s:string);
  i:integer; c:char;
  begin
  // s ist die aus der Datei eingelesene Zeile...
• Forum: Win32/Win64 API (native code)

  Re: Problem mit txt Dateien

    Delphi
    by Thunderchild, 19. Jan 2004
  Um herauszufinden, ob ein String eine gültige IP ist, habe ich mir folgende Funktion gebastelt:
  
  
  function CheckIP(ip:string):boolean;
  var ziffern:array of integer; index,position,fcode:integer;
  begin
  index:=0;
  while (ip<>'') and (index<4) do begin
  position:=pos('.',ip); // Teil bis zum ersten Punkt interessiert
  if position=0 then...