Registriert seit: 10. Mär 2004
1.134 Beiträge
Lazarus
|
Re: String zerlegen
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!
|