目的:拆解 .CSV LIKE String -> TStringList
.CSV LIKE String說明:
"110050","液氧儲槽","12","991029","1001029","南檢所","5"
or
370360 二期冷卻水塔 良機 800RT 990101 北棟頂樓 導電度分析儀 0~2000us/cm 電動閥 1' 220V

//you need a TMemo, a TButton
procedure GetDataline(const line: string; Const aSeparator, aQuoteChar:CHAR; VAR SL: TStringlist);
var
elements: TStringlist;
i, max: Integer;
begin
sl.clear;
elements := TStringlist.Create;
try
elements.QuoteChar := aQuoteChar;
elements.Delimiter := aSeparator;
elements.Delimitedtext := line;
max := elements.count;
for i := 0 to max - 1 do
begin
sl.add(elements[i]);
end; { For }
finally
elements.Free;
end;
Form1.Memo1.Lines.AddStrings(SL);
end;
//
//
procedure TForm1.Button1Click(Sender: TObject);
VAR
SSL:TStringList;
begin
SSL:=TStringList.Create;
舉例1
GETDATALINE(TextDataSet1.Fields[0].AsString,',','"',SSL);
舉例2
GETDATALINE(TextDataSet1.Fields[0].AsString, #8, #0, SSL);
SSL.Free
end;

------
What do we live for if not to make life less difficult for each other?

編輯記錄