AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Copybefehl bei Strings

Ein Thema von Scorpion · begonnen am 17. Jan 2007 · letzter Beitrag vom 20. Jan 2007
Antwort Antwort
Benutzerbild von yörsch
yörsch

Registriert seit: 10. Jan 2007
Ort: Lampertheim
206 Beiträge
 
Delphi XE2 Architect
 
#1

Re: Copybefehl bei Strings

  Alt 17. Jan 2007, 16:20
versuchs mal damit
Delphi-Quellcode:
// String in TStrings umwandeln
procedure readcommand(line:string; Delimiter:array of char; Commandlist:TStrings);
var
  Pos1,Pos2:Integer;
  len:integer;
  dcount,delim:Integer;
  Help:string;
begin
   if Commandlist = NIL then
     Commandlist := TStrings.Create;
   Commandlist.Clear;
   dcount:=length(Delimiter);
   line:=trim(line);
   IF dcount>0 then
   begin
     pos2:=0;
     len:=Length(line);
     delim:=0;
     line:=line + Delimiter[dcount-1];
     while Pos2 < Len do
       begin
         pos1:=pos2;
         Pos2:=PosEx(Delimiter[delim],line,pos1+1);
         if pos2=0 then pos2:=len+1;
         Help:=AnsiMidStr(line,Pos1+1,Pos2-Pos1-1);
         Commandlist.Add(Help);
         if delim < dcount-1 then inc(delim);
       end;
   end
   else
     Commandlist.Add(line);
end;

das kannst du debuggen und dir den besten Teil raussuchen!
gruß
Jörg
Jörg
have FUN
  Mit Zitat antworten Zitat
Antwort Antwort


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