kostenloser Webspace werbefrei: lima-city

[B] Source Parsen ganz einfach

lima-city → Forum → Sonstiges → Spam und sonstiges Unvergütetes

1. Autor dieses Themas

   stevenw

   

   stevenw hat kostenlosen Webspace.

   2:16, 17.5.2009

   Hier ist mal eine Source zum Parsen von Datein. Es wird der Teil zwischen den 2 String ausgegeben.
   
   Uses: StrUtils oder StdCtrls //weis nich mehr genau ^^
   
   
   type
   TArrayofstring = array of string;
   
   
   

   function FindInString(Text, SearchFrom, SearchTo: string; FirstOnly: Boolean; var Return: TArrayOfString): Boolean;
   var
     i: Integer;
     FoundString: string;
   begin
     Result := False;
     SetLength(Return, 0);
     i := Pos(SearchFrom, Text);
     while i > 0 do
     begin
       Result := True;
       i := i + Length(SearchFrom);
       FoundString := Copy(Text, i, PosEx(SearchTo, Text, i) - i);
       SetLength(Return, Length(Return) + 1);
       Return[High(Return)] := FoundString;
       Delete(Text, 1, i);
       i := Pos(SearchFrom, Text);
       if FirstOnly then
         Break;
     end;
   end;

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?