Memo in Stringgrid

[Sharky]

Zitat von Masterof:

Hallo!!
Das Problem ist bei der Sache, das es ca. 5000 Zeilen sind.

Ich sehe da kein Problem

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  ndx : Integer;
  foo : Integer;
  text : String;
begin
  StringGrid1.RowCount := Memo1.Lines.Count;
  for ndx := 0 to Pred(Memo1.Lines.Count) do
  begin
    text := Memo1.Lines[ndx];
    foo := Pos ('::',text);
    StringGrid1.Cells[1,ndx+1] := copy (text,1,foo-2);
    StringGrid1.Cells[2,ndx+1] := copy (text,foo+2,Length(text)-foo);
  end;
end;