Hallo,
ich bin es nochmal. Ich habe die mal was fertig gemacht, damit du deine Messdaten so eingeben kannst wie du es oben in Deinem Beitrag geschrieben hast.
Hier der Code. Ich habe ihn auch noch ein bisschen dokumentiert, damit du durchsiehst.
Delphi-Quellcode:
procedure in_array_speichern(s : String);
var i : Integer; // Schleifenvariable
a : Integer; // Array Zugriffsvariable
m : Array of String; // wären dann deine Messdaten
k : Integer; // Anzahl der ;
begin
// Anzahl der ; ermitteln
k:=0;
for i:=1 to Length(s) do
begin
if s[i]=';' then Inc(k);
end;
SetLength(m, k+1);
// String von ; trennen und im Array speichern
a:=0;
for i:=1 to Length(s) do
begin
if s[i]=';' then begin
Inc(a);
end else begin
m[a]:=m[a] + s[i];
end;
end;
// Messdaten einzeln ausgeben
for i:=0 to a do
begin
ShowMessage(m[i]);
end;
end;
zum aufrufen einfach:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
in_array_speichern('12;234;34;345;34');
end;
[NACHTRAG]
So gehts vieleicht noch ein bisschen schneller als mit den Konstanten.
[/NACHTRAG]
Mit freundlichen Grüßen
Christian18