Parsing / pisah data pada delphi

membedakan data input semisal 123INIDATANYA345 maka data akan masuk di field pertama berupa data INIDATANYA, kalo data input 234INIDATANYA456 maka data akan masuk di field kedua berupa data INIDATANYA  

intinya 

kalo diawali 123 dan diakhiri 345 masuk field1
kalo diawali 234 dan diakhiri 456 masuk field2 

var
s,x: string;

s:=edit1.text;

if copy(s,1,3)='123' then
begin
x:=s;
delete(x,1,3);
setlength(x,pos('345',x)-1)

field1.AsString:=x;
end;
if copy(s,1,3)='234' then
begin
x:=s;
delete(x,1,3);
setlength(x,pos('456',x)-1);
field2.AsString:=x;
end;

silakan pas - kan saja eventnya

 

KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI