Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
AW: Live Stichwortsuche
26. Feb 2014, 10:30
Ähnlich habe ich das auch gerade umgesetzt (nur ohne Generics):
Delphi-Quellcode:
type
TDynStringArray = array of string;
function StrToArray(const InputStr: string): TDynStringArray;
var
PLast, PCurrent: PChar;
s: string;
ArrayIndex: integer;
begin
SetLength(Result, Length(InputStr) div 2);
ArrayIndex := Low(Result);
PLast := PChar(InputStr);
PCurrent := PChar(InputStr);
while PCurrent^ <> #0 do
begin
if PCurrent^ = ' ' then
begin
SetString(s, PLast, PCurrent - PLast);
Result[ArrayIndex] := s;
inc(ArrayIndex);
PLast := CharNext(PCurrent);
end;
PCurrent := CharNext(PCurrent);
end;
SetString(s, PLast, PCurrent - PLast);
Result[ArrayIndex] := s;
SetLength(Result, ArrayIndex + 1);
end;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|