Thema: Delphi String zerlegen

Einzelnen Beitrag anzeigen

Benutzerbild von yankee
yankee

Registriert seit: 10. Mär 2004
1.134 Beiträge
 
Lazarus
 
#5

Re: String zerlegen

  Alt 8. Apr 2004, 16:27
Also ich würde das so machen:
Delphi-Quellcode:
var str1, str2, zeile:string;

for s:=1 to length(zeile) do //so oft wie die Zeile Zeichen hat
    begin
        if zeile[s] <>';then //wenn das aktualle Zeichen kein ; ist, dann:
        begin
            if semikolon=0 then str1 :=str1 +zeile[s]; //das aktuelle Zeichen wird der der Variable str hinzugefügt (wenn es vor dem Semikolon kommt)
            if semikolon=1 then str2:=str2 +zeile[s]; //das aktuelle Zeichen wird der der Variable str2 hinzugefügt (wenn es hinter dem Semikolon steht)
         end;
//------usw.---------
            if zeile[s] =';then inc(semikolon) //wenn das aktuelle Zeichen ; ist, dann smikolon erhöhen
Letzter Tipp: Drogen. Machen zwar nicht glücklich, geben einem aber wenigstens das Gefühl glücklich zu sein.

Have a lot of fun!
  Mit Zitat antworten Zitat