101-1 ile elle yazılmış bir string ifade eşitlenmiyor conver

[delphist]

S.a. Arkadaşlar convert hatası alıyorum şöyle bir işlemde neden.

Database de string şeklinde 101-1 şeklinde bir veri var örnek olarak.

query1.fieldbyname('no').asstring= '101-1' şeklinde bir eşitleme ile hata alıyorum. Neden.....

Teşekkürler

[mussimsek]

hata nedir tam olarak, kod gayet düzgün gözüküyor. Eğer alan string ise çalışması lazım.

Kolay gelsin.

[lazio]

bide
query1.fieldbyname('no').value
olarak denesen.

[delphist]

value ile çalıştı hocam teşekkür ederim ama neden böyle oldu yani mantıksız geldi her zaman kullandığım şey

Teşekkür ederim.

[lazio]

çok emin değilim ama,
alan zaten string..
bunu bi daha String olarak çevir (asString) dediğinden olabilir..

[Kuri_YJ]

Selamlar,

Böyle bir şey olması (nerdeyse) imkansız !.. Başka bir sorun vardır ama burada ortaya çıkıyordur. Kodun tamamını incelemek gerekir.

Kolay Gelsin

[lazio]

unit DB; 'den

Kod: Tümünü seç

function TStringField.GetAsString: string;
begin
  if not GetValue(Result) then Result := '';
end;

Kod: Tümünü seç

function TStringField.GetValue(var Value: string): Boolean;
var
  Temp: String;
  pBuff: PChar;
  Buffer: array[0..dsMaxStringSize] of Char;
begin
  if DataSize > dsMaxStringSize then
  begin
    SetLength(Temp, DataSize);
    pBuff := pChar(Temp);
    Result := GetData(pBuff);
    if Result then
      SetLength(Temp, strlen(PBuff));
  end else
    Result := GetData(@Buffer);
  if Result then
  begin
    if DataSize > dsMaxStringSize then
      Value := Temp
    else
      Value := Buffer;
    if Transliterate and (Value <> '') then
      DataSet.Translate(PChar(Value), PChar(Value), False);
  end;
end;

[/code]

[mussimsek]

AsValue dersen, variant olarak ele alır ve tüm tipler için dener. AsString'e göre 7-8 kat daha yavaş çalışır ve tavsiye edilne birşey değildir.

Kolay gelsin.