Ein String ist ein String ist ein String...
Der wird einfach gesplittet mit einem Delimiter:
Delphi-Quellcode:
procedure Split(Delimiter: Char; Str: string; ListOfStrings: TStrings) ;
begin
ListOfStrings.Clear;
ListOfStrings.Delimiter := Delimiter;
ListOfStrings.StrictDelimiter := True; // kann entfallen, wenn unbekannt
ListOfStrings.DelimitedText := Str;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
OutPutList: TStringList;
begin
Edit7.text:= '01 00 02 05 FF 04 09';
OutPutList := TStringList.Create;
try
Split(' ', Edit7.text, OutPutList) ;
Edit0.text:= OutPutList[0];
Edit1.text:= OutPutList[1];
Edit2.text:= OutPutList[2];
Edit3.text:= OutPutList[3];
Edit4.text:= OutPutList[4];
Edit5.text:= OutPutList[5];
Edit6.text:= OutPutList[6];
finally
OutPutList.Free;
end;
end;
oder:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var List: TStrings;
begin
Edit7.text:= '01 00 02 05 FF 04 09';
List := TStringList.Create;
try
// ExtractStrings([' '], [], PChar('01 00 02 05 FF 04 09'), List);
ExtractStrings([' '], [], PChar(Edit7.text), List);
Edit0.text:= List[0];
Edit1.text:= List[1];
Edit2.text:= List[2];
Edit3.text:= List[3];
Edit4.text:= List[4];
Edit5.text:= List[5];
Edit6.text:= List[6];
finally
List.Free;
end;
end;