Text aus einem Memobox ziehen Zeile für Zeile

Question

Ich muss eine Tonne Daten durchlaufen, die in einer Paradox-Tabelle in einem Memo-Feld gespeichert ist. Ich muss diese Daten Zeile für Zeile verarbeiten und jede Zeile verarbeiten.

Wie kann ich Delphi sagen, jede Zeile im Memo-Feld einzeln zu holen?

Kann ich # 13 # 10 als Trennzeichen verwenden?

Answer 1

dass Angenommen, was in der Memofelds ist verwendet # 13 # 10 als der Linientrenner dann würde ich eine TStringList verwenden, und die sehr nützlich Text Eigenschaft des Memofelds Text in einzelne Zeilen aufgeteilt:

var 
    StringList: TStringList; 
    Line: string; 
..... 
StringList.Text := MemoFieldText; 
for Line in StringList do 
    Process(Line); 

Auch wenn in Ihrem Memofeld Unix-Zeilenumbrüche verwendet werden, interpretiert dieser Code das Memofeld korrekt.

Answer 2

Es hängt davon ab, wie das Feld tatsächlich in Paradox deklariert wird. Wenn es ein TMemoField ist, ist es ziemlich einfach:

var 
    SL: TStringList; 
    Line: string; 
begin 
    SL := TStringList.Create; 
    try 
    SL.Text := YourMemoField.GetAsString; 
    for Line in SL do 
    // Process each line of text using `Line` 
    finally 
    SL.Free; 
    end; 
end; 

Wenn es ein TBlobField ist, ist es ein wenig komplizierter. Sie müssen das Memo-Feld mit einem TBlobStream, und laden Sie den Inhalt dieses Stroms in einen TStringList lesen:

// For Delphi versions that support it: 
procedure LoadBlobToStringList(const DS: TDataSet; const FieldName: string; 
    const SL: TStringList); 
var 
    Stream: TStream; 
begin 
    Assert(Assigned(SL), 'Create the stringlist for LoadBlobToStringList!'); 
    SL.Clear; 
    Stream := DS.CreateBlobStream(DS.FieldByName(FieldName), bmRead); 
    try 
    SL.LoadFromStream(Stream); 
    finally 
    Stream.Free; 
    end; 
end; 

// For older Delphi versions that do not have TDataSet.CreateBlobStream 
procedure LoadBlobToStringList(const DS: TDataSet; const TheField: TField; 
    const SL: TStringList); 
var 
    BlobStr: TBlobStream; 
begin 
    Assert(Assigned(SL), 'Create the stringlist for LoadBlobToStringList!'); 
    SL.Clear; 
    BlobStr := TBlobStream.Create(DS.FieldByName(TheField), bmRead); 
    try 
    SL.LoadFromStream(BlobStr); 
    finally 
    BlobStr.Free; 
    end; 
end; 

// Use it 
var 
    SL: TStringList; 
    Line: string; 
begin 
    SL := TStringList.Create; 
    LoadBlobToStringList(YourTable, YourMemoFieldName, SL); 
    for Line in SL do 
    // Process each Line, which will be the individual line in the blob field 

    // Alternatively, for earlier Delphi versions that don't support for..in 
    // declare an integer variable `i` 
    for i := 0 to SL.Count - 1 do 
    begin 
    Line := SL[i]; 
    // process line of text using Line 
    end; 
end;