Memo in Stringgrid

[Masterof]

Hallo!!

Ich möchte diese Zeile (Abänderung {f} :: modification) gern trennen und in einem Stringgrid das erste Wort in die 1. Spalte und das 2. Wort in die 2. in die Spalte daneben schreiben. Die Zeilen stehen so in einem Memo. Wie funktioniert das?

MfG Master

[Sharky]

Hai Masterof,

welches sind denn die Trennzeichen für die beiden Wörter? Ist es das "::"? Dann sollte es mit einem [oh]POS, Copy[/oh] einfach zu lösen sein.

[Masterof]

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

[Sharky]

Zitat:

Zitat von Masterof

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

Ich sehe da kein Problem :stupid:

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;

[Masterof]

ok danke hat funktioniert.

master