Einzelnen Beitrag anzeigen

Benutzerbild von RomanK
RomanK

Registriert seit: 7. Jun 2002
Ort: Kirchheim unter Teck
1.036 Beiträge
 
Delphi 7 Personal
 
#1

In Function übergebenes dynamisches Array

  Alt 27. Okt 2002, 16:55
Also ich will einen String mit Leerzeichen an den Leerzeichen teilen, die einzelnen Teile werden dann in ein dynamisches Array geschrieben.
Hier der Code:
Code:
function parsen ( var output: array of String; input: string; trennzeichen:char):integer;
var
i,ac:integer;
begin
ac := 1;
setlength(output,ac);  
for i:=0 to length(input) do  
 begin
 if input[i] = ' ' then
  begin                    
  inc(ac);                      
  setlength(output,ac);
 end
 else                              
  begin
  output[ac]:=output[ac]+input[i];
 end;
end;
result := ac;
end;
wenn ich jetzt
setlength(output,ac);
mache dann kommt
[Fehler] Unit1.pas(41): Inkompatible Typen
was mache ich falsch
oder darf ich die Länge eines Übergebenen Arrays nicht verändern
DANKE schonmal![/b]
Roman Keller
Krieg ist Gottes Art den Amerikanern Geographie beizubringen!
  Mit Zitat antworten Zitat