Einzelnen Beitrag anzeigen

danieleh

Registriert seit: 1. Dez 2005
54 Beiträge
 
#5

Re: array of array aus textfile

  Alt 9. Aug 2009, 17:34
Hallo Sebastian,
Die "einzelnen" Arrays xi und yi ist nur als Test/Beispiel gedacht und funktionieren einwndfrei.

Durch die Funktion Explode (quelle oben beschieben), werden die Spalten bestens getrennt sodass ich sie mit List2[spaltenzahl] lesen kann.

Das Datenfile entält aber n (beliebige Anzahl) Messwerte die ich allesamt in ein 2dArray bringen möchte (nicht nur 2 davon). Ich weiss einfach nicht wie ich sie in das Array bringen kann. Hilfe mit Code würde ich sehr schätzen.

Delphi-Quellcode:
function Explode(const Separator, S: string; Limit: Integer = 0): TStringList;
var
  SepLen: Integer;
  F, P: PChar;
  Index: Integer;
begin
  result := TStringList.Create;
  if (S = '') or (Limit < 0) then Exit;
  if Separator = 'then
  begin
    Result.add(S);
    Exit;
  end;
  SepLen := Length(Separator);

  Index := 0;
  P := PChar(S);
  while P^ <> #0 do
  begin
    F := P;
    P := AnsiStrPos(P, PChar(Separator));
    if (P = nil) or ((Limit > 0) and (Index = Limit - 1)) then
      P := StrEnd(F);
    result.Add(copy(AnsiString(F),0,P-F));
    inc(index,1);
    if P^ <> #0 then Inc(P, SepLen);
  end;
end;
  Mit Zitat antworten Zitat