Code: Alles auswählen
program Project1;
uses SysUtils;
var s: String;
res : TStringArray;
i : integer;
begin
s := 'abcdef-ghi-jkl';
res := s.Split('-');
for i := 0 to high(res) do
writeln(res[i]);
readln;
end.
Code: Alles auswählen
program Project1;
uses SysUtils;
var s: String;
res : TStringArray;
i : integer;
begin
s := 'abcdef-ghi-jkl';
res := s.Split('-');
for i := 0 to high(res) do
writeln(res[i]);
readln;
end.
Danke für die prompte Lieferung Deiner Folien.