AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Eingabezahlen aus Editfeld in Bytearray einlesen
Thema durchsuchen
Ansicht
Themen-Optionen

Eingabezahlen aus Editfeld in Bytearray einlesen

Ein Thema von Amina · begonnen am 5. Jun 2009 · letzter Beitrag vom 6. Jun 2009
 
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, 19: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
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:40 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz