String forsat

jeg kan godt lave en funktion der kan gøre det ved alle længder, men det bliver ikke helt nu. jeg behøver ikke point igen for du kunne da bare have spurgt i det forrige :)

Så jeg kommer nok på senere og svarer, ok?

Utestet

var
  ccc: Array[1..1000];

procedure prove(tekst: String, tal: Integer);
begin
aPos := Pos(',', aSource);
if apos = 0 then
begin
end
else
begin
  aDest1 := Copy(aSource, 1, aPos-1);
  aDest2 := Copy(aSource, aPos+1, Length(aSource));
  ccc[tal] := aDest1;
  prove(aDest2, tal+1)
end;

VIRKER:

var
  ccc: Array [0..1000] of String;

procedure TForm1.prove(tekst: String; tal: Integer);
var
aPos: Integer;
aDest1, Adest2: String;
begin
aPos := Pos(',', tekst);
if apos = 0 then
begin
  ccc[tal] := tekst;
end
else
begin
  aDest1 := Copy(tekst, 1, aPos-1);
  aDest2 := Copy(tekst, aPos+1, Length(tekst));
  ccc[tal] := aDest1;
  prove(aDest2, tal+1)
end;
end;

function SplitString(const S: String; Separator: Char): TStringList;
    function IScan(ch: Char; Const S: String; fromPos: Integer): Integer;
    var
      i: Integer;
    begin
      Result := 0;
      for i := fromPos  to Length(S) do
      begin
        if S[i] = ch then
        begin
          Result := i;
          Break;
        end;
      end;
    end;

  var
    i, n: Integer;
  begin
    If Length(S) > 0 then
    begin
      Result := TStringlist.Create;

      i:= 1;
      repeat
        n := IScan(separator, S, i );
        if n = 0 Then
          n:= Length(S) + 1;
        Result.Add(Copy(S, i, n-i));
        i:= n + 1;
      until i > Length(S);
    end;
  end;

Og sådan bruges den

  Memo1.Lines := SplitString(Edit1.Text, ',');

Eks på Start procedure:

procedure TForm1.Button1Click(Sender: TObject);
begin
  prove(edit1.text, 0);
end;

(tager her fra: http://www.efg2.com/Lab/Library/UseNet/2000/0524b.txt)

hmm, dit e nok lidt mere prof !!!, men mit fylder da mindre :-)

Derfor behøver det jo ikke være hurtigst fordi det fylder midst, for det er vel det der tæller :)

:-S

Prøv at se svaret på:
http://www.eksperten.dk/spm/170969
Det er samme spørgsmål.

Den der funktion som stringlist's åbenbart har fået i Delphi 6 er da ganske smart !