estrarre dati da file.txt per inserirli in un db

[sergio]

Xinyman, la  '''StringReplace(EstrapolaValoreNumero(appFile.Strings,0),'''','''''', [rfReplaceAll]) '''' mi da un errore di dato . ! 

[xinyiman]

Prova a stampare quei dati senza la stringreplace. Dimmi cosa ti ritorna! Oppure metti dei brackpoint all'interno della funzione e dimmi il punto esatto in cui va in errore!

[sergio]

OK , ci provo ! Sai comunque dove si puo' trovare la LCL 1.0.1?  Grazie
 

[xinyiman]

Sinceramente no, perchè non mi è ancora servita!

[nomorelogic]

OK , ci provo ! Sai comunque dove si puo' trovare la LCL 1.0.1?  Grazie
 

LCL dipende dal compilatore free pascal e difficilmente la potrai installare in quanto la LCL 1.0.1 credo di ricordare che sia nella trunk (versione in fase di sviluppo per la quale non esiste un installer).

Se non ho detto una castroneria e vuoi provare la trunk hai due strade:
1) http://wiki.freepascal.org/Getting_Lazarus
2) http://www.lazarus.freepascal.org/index.php/topic,15919.0.html

[bonmario]

Confermo: io mi aggiorno tramite SVN ed ho la LCL 1.0.1

Ciao, Mario

[sergio]

Grazie ragazzi , ci provo !!!! il package CSV funziona solo con la 1.0.1 . Per ora grazie , poi vi faccio sapere !!

[brunello]

fedele alla filosofia del pane e salame ho queste due funzioni che adopero da delphi 2 e non mi hanno mai dato problemi
la prima serve per sapere il numero dei separatori presenti all'interno della stringa
mentre la seconda per estrarre la n. sottostringa dalla stessa usale così eviti versioni di più o meno aggiornate repositary e amenità varie, ciao Brunello

function StrTokenCount(S: String; Seperator: Char): Integer;
var i: integer;
begin
  Result := 0;
  for i := 1 to Length(s) do
    if s = Seperator then Inc(Result);
end;

function StrTokenAt(const S:String; Seperator: Char; At: Integer): String;
var
  j, i: Integer;
begin
  Result := '';
  j := 1;
  i := 1;
  while (i <= At ) and (j <= Length(S)) do
    begin
      if S[j] = Seperator then
        Inc(i)
      else
        if i = At then Result := Result + S[j];
      Inc(j);
    end;
end;       

[Stilgar]

Le hai modificate al volo o il forum le ha modificate?

Codice: [Seleziona]

function StrTokenCount(S: String; Seperator: Char): Integer;
var i: integer;
begin
  Result := 0;
  for i := 1 to Length(s) do
    if s[i] = Seperator then Inc(Result);
end;

Mai pensato di usare i puntatori? Sono un pelino più veloci

Codice: [Seleziona]

var
  c : PChar;
begin
   Result := 0;
  C := PChar(S);
   while C^ <> #0 do
  begin
     if C^=separator then inc(result);
    inc(C);
  end;
end;
 

il codice l'ho modificato al volo

[Stilgar]

Codice: [Seleziona]

function StrTokenAt(const S:String; Seperator: Char; At: Integer): String;
var
  C, Start : PChar;
begin
  Result := '';
  C := PChar(S);
  Start := C;
  inc (C, at); 
  if (C-Start) > Length(S) then  
    // controllo di non essere uscito dai margini della memoria assegnata.
    raise Exception.Create('indici mauchi'); // <- Magari un messaggio più serio
  Start := C;
  while (C^ <> #0) and (C^<>Separator) do
    begin
      inc(C);
    end;
  SetString(Result, Start, C-Start);
end;