Stings Teilen

[mikeL88]

also habe das Prob, dass ich einen string zerteilen möchte, dieser hat aber Zeilenumbrüche.... würde gerne den String so haben, das vom GSM bis zum nächsten freizeichen geht! bitte um hilfe, hab grad nen BLACKOUT!

STRING


Report CLCL-01 Credit Limit Report fÏr CUSTOSGMBH Seite: 2
Partnerunternehmen Datum: 03/05/2011

Bill Zyklus:70
Specific Credit Limit: .00
Kosten Kosten Bestehende
aktueller letzte letzte
MSISDN National Internat Roaming SMS+VAS SpecNum GPRS MPayment MMS+MSD Zyclus 24 Std. 24 Std.
-------------- --------- --------- --------- --------- --------- --------- --------- --------- --------- --------- ----------
GSM15253043271 .00 .00 .00 .00 .00 2.65 .00 .00 2.65 .00 .00
GSM15253051818 .00 .00 .00 1.19 .00 .00 .00 .00 1.19 .00 .00
GSM15253043505 .00 .00 .00 .34 .00 .00 .00 .00 .34 .00 .00

var s:string; filename, tmpstr:string;
i: integer; index:integer;
slist: TStringlist;
begin
slist := TStringList.Create;
TableView.BeginUpdate;
if OpenDialog1.Execute then
begin
filename := OpenDialog1.FileName;
slist.LoadFromFile(filename) ;
s := slist.Text;
for i := 0 to slist.Count -1 do
begin
if POS('Specific Credit Limit:',slist.Strings[i]) <> 0 then
begin
// memo1.Lines.Add(copy(slist.Strings[i],POS('Specific Credit Limit:,2452',slist.Strings[i]),2452));
end;

if POS(' GSM',slist.Strings[i]) = 1 then
begin
memo1.Lines.Add(slist.Strings[i]);

index:=0;
Tableview.DataController.Recordcount:= Index+1;
tmpstr := copy(s,pos (' GSM',slist.Strings[i]));
TableView.DataController.Values[index,MSISDNcolumn.Index] := (copy (tmpstr,545,pos(' ',tmpstr))) ;//copy(s,pos (' GSM',slist.Strings[i]));