Hallo

was mache ich hier falsch?

zusammenfalten · markieren

Delphi-Quellcode:

implementation

{$R *.dfm}
 function Split(const fText: String; const fSep: Char; fTrim: Boolean=false; fQuotes: Boolean=false):TStringList;
var vI: Integer;
    vBuffer: String;
    vOn: Boolean;
begin
  Result:=TStringList.Create;
  vBuffer:='';
  vOn:=true;
  for vI:=1 to Length(fText) do
  begin
    if (fQuotes and(fText[vI]=fSep)and vOn)or(Not(fQuotes) and (fText[vI]=fSep)) then
    begin
      if fTrim then vBuffer:=Trim(vBuffer);
      if vBuffer='' then vBuffer:=fSep; // !!! sonst läuft z.B. split(',**',',') auf einen Hammer...
      if vBuffer[1]=fSep then
        vBuffer:=Copy(vBuffer,2,Length(vBuffer));
      Result.Add(vBuffer);
      vBuffer:='';
    end;
    if fQuotes then
    begin
      if fText[vI]='*' then
      begin
        vOn:=Not(vOn);
        Continue;
      end;
      if (fText[vI]<>fSep)or((fText[vI]=fSep)and(vOn=false)) then
        vBuffer:=vBuffer+fText[vI];
    end else
      if fText[vI]<>fSep then
        vBuffer:=vBuffer+fText[vI];
  end;
  if vBuffer<>'' then
  begin
    if fTrim then vBuffer:=Trim(vBuffer);
    Result.Add(vBuffer);
  end;
end;

procedure TForm1.AdvGlassButton1Click(Sender: TObject);
begin
Memo1.Clear;
end;




procedure TForm1.AdvGlowButton1Click(Sender: TObject);
 for vI:=1 to Length(fText) do // ???????????????????????????????????????????????????????????????????????????????????????????????
  begin
    Explode(load[vI], '*', AdvStringGrid1.Rows[vI]); // ?????????????????????????????????????????????????????????????????????????????????????
    AdvStringGrid1.RowCount := AdvStringGrid1.RowCount + 1;
  end;


end;

end.

Zitat von Alterauge:

was mache ich hier falsch?

Leider So Einiges.
Hier fehlt z.B. ein Begin

markieren

Delphi-Quellcode:

procedure TForm1.AdvGlowButton1Click(Sender: TObject);
begin // <==== fehlt bei dir
  for vI:=1 to Length(fText) do // wo ist fText deklariert ?
  begin
    Explode(load[vI], '*', AdvStringGrid1.Rows[vI]); // wieso Explode() und nicht Split() ?
    AdvStringGrid1.RowCount := AdvStringGrid1.RowCount + 1;
  end;
end;

Denk' auch daran, dass wenn du Sourcecode hochladest, dass du *.exe und *.dcu vorher aus dem Zip-Archiv rauslöscht.
Auch das Verzeichnis __history ist aus Sicht der Leser nur unnötiger Ballast.

Zitat von Alterauge:

was mache ich hier falsch?

Meinst du nicht auch, dass es sehr hilfreich wäre, wenn du uns die Fehlermeldung nennst oder was für ein Problem der Quellcode verursacht?

Danke für die schnelle Antwort!

Werde nochmal alles prüfen und überarbeiten!
Danke für die Hinweise!