Einzelnen Beitrag anzeigen

Benutzerbild von HomerGER
HomerGER

Registriert seit: 9. Jun 2003
390 Beiträge
 
Delphi 7 Professional
 
#7

Re: String ist zu lang für copy ?

  Alt 7. Dez 2003, 11:49
ok sorry

hier die Function

Code:
Function Werte_Zerlegen_GU(input_s : String; art_s : String; nr_i : Integer) : String;
var
daten_s : String;
daten_r : DatConstAry3Ary;
i : Integer;
j : Integer;
pos_i : Integer;
begin
    daten_s := input_s;

    //Array löschen
    for i := 1 to k_max_dat_i do
    begin
        for j := 1 to 3 do
        begin
            daten_r.dat_aas[i][j] := '';
        end;
    end;

    //Array füllen
    for i := 1 to k_max_dat_i do
    begin
        for j := 1 to 3 do
        begin
            if (daten_s <> '') then
            begin
                pos_i := Pos('<++>', daten_s);
                daten_r.dat_aas[i][j] := Copy(daten_s, 1, pos_i - 1);
                Delete(daten_s, 1, pos_i + 3);
            end;
        end;
    end;
end;

DatConstAry3Ary ist ne record
Code:
DatConstAry3Ary = Record
dat_aas : Array[1..k_max_dat_i] of Array[1..3] of String;
end;
in daten_s ist noch alles da
aber in daten_r.dat_aas nicht mehr
also dachte ich das copy nur max 255 zeichen copieren kann
  Mit Zitat antworten Zitat