DEAR ALL 小弟自SQL SERVER讀取資料 再將其指定給一TString 如 TEMPSTR:= T_TADE T_ACCO T_AMT 其數值為 2003/9/6SD02458 34.252 T_AMT 長度為13 整數與小數採動態 要如何才能將其轉成20030906SD024580000034252000 謝謝 並祝大家 佳節愉快

begin
  // 去除 /
  TEMPSTR := StringReplace(TEMPSTR, '/', '', [rfReplaceAll]); 
  // 去除 .
  TEMPSTR := StringReplace(TEMPSTR, '.', '', [rfReplaceAll]);
  // 去除半形空白
  TEMPSTR := StringReplace(TEMPSTR, ' ', '', [rfReplaceAll]);
end;

--- 歡迎光臨 KTop 研究院--<-<-<@

tempstr:Tstrings; 小弟將 begin // 去除 / TEMPSTR := StringReplace(TEMPSTR, ''/'', '''', [rfReplaceAll]); // 去除 . TEMPSTR := StringReplace(TEMPSTR, ''.'', '''', [rfReplaceAll]); // 去除半形空白 TEMPSTR := StringReplace(TEMPSTR, '' '', '''', [rfReplaceAll]); end; 加入後 ERROR MESSAGE Incompatible types:'String' and 'TStrings' 以下為小弟的程式 tempstr:=TStringList.Create; . while not Eof do begin tempstr.Add(Format(RETSTR,[T_TADE,T_ACCO,T_AMT])); Query1.Next; end; 發表人 - shiungyi 於 2003/09/12 11:39:31

tstringlist.strings[index]的屬性才是string型態 你必須將hargar的程式用來處理tstringlist的某一個index的strings

[quote] tstringlist.strings[index]的屬性才是string型態 你必須將hargar的程式用來處理tstringlist的某一個index的strings 我改成下列方式 T_TADE:=CTCQuery1.FieldByName('BILL_DAT').AsString; T_AMT:=CTCQuery1.FieldByName('EXRATE_COST').AsString; T_AMT := StringReplace(T_AMT, ''.'', '''', [rfReplaceAll]); T_TADE := StringReplace(T_TADE , ''/'', '''', [rfReplaceAll]); tempstr.Add(Format(RETSTR,[T_TADE,T_ACCO,T_AMT])); 結果為 Record,Object or class type required Operator not applicable to this operand type 發表人 - shiungyi 於 2003/09/12 12:16:39

tempstr.Add(Format(RETSTR,[T_TADE,T_ACCO,T_AMT])); 這是什麼?

tempstr.Add(Format(RETSTR,[T_TADE,T_ACCO,T_AMT])); 新增一筆record至tempstr 最終目的在於 tempstr.SaveToFile('c:\bgbil1.txt'); 當record由datebase讀取後 日期顯示為2003/9/8 這樣的資料IBM主機無法辨識 必須轉成20030908 發表人 - shiungyi 於 2003/09/12 14:01:55

RETSTR 是什麼???

[quote] RETSTR 是什麼??? 這是之前USER留下來的程式 我也不是很清楚

1.單步追蹤吧 2.查一下程式碼,RETSTR可能是某個變數,查他代入的值 3.待高明者續 發表人 - hahalin 於 2003/09/12 14:52:01

找到了 const RETSTR:string = '%8s%4s%3s%1s%3s%4s%3s%2s%1s%1ss%8ssss s0s%4s%4ss';//定義文字檔格式

begin
  // 去除 /
  TEMPSTR.Text := StringReplace(TEMPSTR.Text, '/', '', [rfReplaceAll]); 
  // 去除 .
  TEMPSTR.Text := StringReplace(TEMPSTR.Text, '.', '', [rfReplaceAll]);
  // 去除半形空白
  TEMPSTR.Text := StringReplace(TEMPSTR.Text, ' ', '', [rfReplaceAll]);
end;

--- 歡迎光臨 KTop 研究院--<-<-<@

begin // 去除 / TEMPSTR.Text := StringReplace(TEMPSTR.Text, '/', '', [rfReplaceAll]); // 去除 . TEMPSTR.Text := StringReplace(TEMPSTR.Text, '.', '', [rfReplaceAll]); // 去除半形空白 TEMPSTR.Text := StringReplace(TEMPSTR.Text, ' ', '', [rfReplaceAll]); end; DEAR hagar 照您的做法 確實能解決小數點的問題 但是日期還是有問題 2003/09/12-->2003912 遇到個位數的月份還是沒補0 而金額欄位 如 35463.678-->35463678 並不是所要之 03546367800 謝謝 發表人 - shiungyi 於 2003/09/13 12:19:38

您 T_Date 這個變數的值是怎樣得來的？ 得從這個地方下手.    --- 歡迎光臨 KTop 研究院--<-<-<@

[quote] 您 T_Date 這個變數的值是怎樣得來的？ 得從這個地方下手. T_Date:=CTCQuery1.FieldByName('T_Date').AsString; 然後就直接將值指定給TEMPSTR 並未做任何處理

begin
  T_Date := CTCQuery1.FieldByName('T_Date').AsString;      if T_Date[7] = '/' then // 月份補 0
    Insert('0', T_Date, 6);
  if (T_Date[8] = '/') and (Length(T_Date) = 9) then // 日期補 0
    Insert('0', T_Date, 9);
end;

--- 歡迎光臨 KTop 研究院--<-<-<@

begin T_Date := CTCQuery1.FieldByName('T_Date').AsString; if T_Date[7] = '/' then // 月份補 0 Insert('0', T_Date, 6); if (T_Date[8] = '/') and (Length(T_Date) = 9) then // 日期補 0 Insert('0', T_Date, 9); end; 照上述改正後 [Error] Unit1.pas(4882): Too many actual parameters

begin T_Date := CTCQuery1.FieldByName('T_Date').AsString; if T_Date[7] = '/' then // 月份補 0 Insert('0', T_Date, 6); if (T_Date[8] = '/') and (Length(T_Date) = 9) then // 日期補 0 Insert('0', T_Date, 9); end; DEAR hagar 改成 System.Insert( '0',pc_rele_time, 6 );後 日期欄位的問題已解決 因為這段程式是置於with CTCQuery1 do之下 所以DELPHI一直把 Insert('0', T_Date, 6); 當成TDateSet.Insert.Procedure 目前剩下數字欄位的空白補"0" 與小數點消去後的數字位移問題 這些小弟會自行研究 在此謝謝hagar與hahalin的協助

數字的format用 T_AMT:= Copy(FloatToStrF( (T_AMT*1000000.0 10000000000000.0) , ffGeneral, 14,0),2,13);