Einzelnen Beitrag anzeigen

quendolineDD

Registriert seit: 19. Apr 2007
Ort: Dresden
781 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: Eingabezahlen aus Editfeld in Bytearray einlesen

  Alt 5. Jun 2009, 20:49
Es geht einfacher.
Du gehst in einer Schleife solange mit PosEx durch, bis dies 0 ergibt und suchst nach Leerzeichen. Du kopierst aus der Eingabe bis zu dem Punkt wo das Leerzeichen ist in einen tempörären String (lokale Variable) und nun kannst du das in das Array überführen. IntToStr ist hierbei dein Freund.

Edit:
Delphi-Quellcode:
var
  ofs : integer;
  text : string;
  tmp : string;
  byArray : array of byte;
begin
  text := Edit1.Text;
  ofs := PosEx(#32, text);
  while ofs <> 0 do
  begin
    tmp := copy(text, 0, ofs - 1);
    SetLength(byArray, length(byArray) + 1);
    byArray[High(byArray)] := StrToInt(tmp);
    delete(text, 1, ofs);
    ofs := PosEx(#32, text, ofs);
  end;
end;
Zum Verständnis mal eine unperformante Lösung. Im Forum findest du unter dem Stichwort Hier im Forum suchenExplode bestimmt fertige Lösungen.
Lars S.
Wer nicht mit der Zeit geht, geht mit der Zeit.
  Mit Zitat antworten Zitat