TXT Zerlegen ???

[Bernd29bln]

Hallo,

nein du verstehst das schon richtig kannst du es mir an hand von diesem code zeigen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);  
var  
  s,s2: String;  
  p   : integer;  
begin  
  // zeilen loeschen  
 memo1.lines.Delete(0);  
 memo1.lines.Delete(0);  
 memo1.lines.Delete(memo1.lines.Count-1);  

 
 // zerschneiden  
 s:= memo1.lines[0];  
 s:=copy(s,pos(' ',s)+1,length(s));  
 p:=pos(' ',s);  
 s2:=copy(s,p+1,length(s));  
 p:=p+pos(' ',s2)-1;  
 s:=copy(s,1,p);  
 memo1.lines[0] := s;  
end;

gruss bernd