Erstmal guten Morgen,
Ich habe ein StringGrid1 mit 5 Spalten und 5 Zeilen und ich habe ein Memo mit folgendem Inhalt:
Zitat:
11-10-2005;TV-Rips;UFC Unleashed S01E07 *XViD* *DSRip*;AAF;25x15MB
Jetzt moechte ich jede Memo.line splitten und die im StrinGrid kopieren.
Wobei StringGrid1.FixedRows := 1;
Zitat:
In Zeile1/Spalte1: 11-10-2005 in Zeile1/Spalte2: TV-Rips
in Zeile1/Spalte3: UFC Unleashed S01E07 *XViD* *DSRip* unsw.
Habe auch schon was code hier gefunden aber der funzt nicht fuer mein StringGrid.
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[0,ndx+1] := copy (text,1,foo-2);
StringGrid1.Cells[1,ndx+1] := copy (text,foo+1,Length(text)-foo);
end;
end;
Ich habe mehr Spalten und Zeilen IM SG und ich kriege es nicht hin.
Hat jemand vielleicht ne Loesung ?
Waere sehr nett, danke im voraus.