Einzelnen Beitrag anzeigen

Alaitoc

Registriert seit: 24. Okt 2008
263 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: Gedankenschupps SL.Strings[i] ---> Stringrid.Cells[x,

  Alt 20. Mai 2009, 18:00
Tach,

also z.b.

Delphi-Quellcode:
for i:=0 to Stringlist.Count -1 do
begin
  if i mod 3 = 0 then
  begin
    //Bei 1/4/7 ...
    StringGrid[spalte,zeile]:=Stringlist[i];
    spalte:=0;
    inc(zeile);
  end
  else if i mod 2 = 0 then
  begin
    //Bei 2/5/8 ...
    StringGrid[spalte,zeile]:=Stringlist[i];
    inc(spalte);
  end
  else if i mod 1 = 0 then
  begin
    //Bei 3/6/9 ...
    StringGrid[spalte,zeile]:=Stringlist[i];
    inc(spalte);
  end;
end
mod = Rest von i/Zahl

Ist halt nur so in etwa nen Anstupser und würde halt nur nachdem in welchem Format das ganze basiert eine ziemlich große If-Anweisung werden ;o

Oder was du noch machen könntest wäre durch die Liste zu iterieren und die Werte immer in die Spalten eintragen, wenn du dann am Ende der Zeile angekommen bist halt in die nächste wechseln...also so z.b. :

Delphi-Quellcode:
for i:=0 to Stringlist.Count -1 do
begin
  Stringrid[Spalte,Zeile]:=Stringlist[i];
  if Spalte=Stringrid.Spaltenanzahl then
  begin
    Spalte:=0;
    inc(Zeile);
  end
  else
  begin
    inc(Spalte);
  end;
end;
Was glaubich dann doch wahrscheinlich effizienter wäre *g*
  Mit Zitat antworten Zitat