Text/Zahlen auf mehrere Editfelder aufteilen

[t.roller]

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;