Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#4

AW: Text parsing - need method

  Alt 16. Dez 2012, 18:06
If you don't want to use the "delimitedText" try this way:
Delphi-Quellcode:
{pseudocode}
for i:=0 to lines.count-1 do begin
  if (pos('R:',line)>0) and
     (pos('G:',line)>0) and
     (pos('B:',line)>0) and
     (pos('PANTONE',line)>0) then
   GetDatafromLine(line)
  else
    donothing;
end;
Greetings
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat