Avatar billede justice Nybegynder
06. maj 2002 - 16:57 Der er 36 kommentarer og
1 løsning

Indlæs indholdet af en fil til et memofelt?

Jeg har forsøgt alt med min begrænsede viden. Mit første problem er at jeg vil indlæse min Config.cfg fil fra Counter-Strike, så den står vist i et memo felt.
Mit program ser ud som følgende:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

const
  Filnavn = 'Config.cfg';

type
  Talias = record
    Linie: string
  end;

  TCScontrol = class(TForm)
    Memo1: TMemo;
    btnLoad: TButton;
    Tast: TComboBox;
    Funktion: TComboBox;
    btnOpdater: TButton;
    btnGem: TButton;
    procedure btnLoadClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    AliasFil: file of Talias;
  end;

var
  CScontrol: TCScontrol;

implementation

{$R *.DFM}



procedure TCScontrol.btnLoadClick(Sender: TObject);
var
ConfigLinie: TAlias;
begin
  if FileExists(Filnavn) then
  begin
    AssignFile(AliasFil, Filnavn);
    while not eof do
    read(AliasFil, ConfigLinie);
    memo1.lines := Configlinie.linie;
  end;
end;

end.


Disse fejl opstår når jeg forsøge at køre programmet:

[Error] Unit1.pas(29): Type 'Talias' needs finalization - not allowed in file type
[Error] Unit1.pas(50): Incompatible types: 'TStrings' and 'String'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Please... Hjælp mig, jeg har travlt :/
Avatar billede borrisholt Novice
06. maj 2002 - 16:58 #1
Memo1.Lines.LoadFormFile !

Jens B
Avatar billede snowball Novice
06. maj 2002 - 16:59 #2
Hvorfor laver du ikke bare en

Memo1.LoadFromfile(c:\st\til\fil.cfg');

Snowball
Avatar billede borrisholt Novice
06. maj 2002 - 16:59 #3
brug den i stedet for !

Jens B
Avatar billede snowball Novice
06. maj 2002 - 16:59 #4
Hov, glemte lines, men det huskede Jens så ;)

Snowball
Avatar billede justice Nybegynder
06. maj 2002 - 17:08 #5
Hvordan laver jeg en mulighed for at browse sig frem til den dir. hvor confog.cfg ligger?
Avatar billede borrisholt Novice
06. maj 2002 - 17:10 #6
brug SelectDirectories()

Jens B
Avatar billede d34c0n Praktikant
06. maj 2002 - 17:11 #7
Du kunne også bruge: Memo1.Lines.LoadFromFile(Filnavn);
Avatar billede d34c0n Praktikant
06. maj 2002 - 17:12 #8
if FileExists(Filnavn) then Memo1.Lines.LoadFromFile(Filnavn) else ShowMessage('Filen eksisterer ikke!');
Avatar billede justice Nybegynder
06. maj 2002 - 17:26 #9
Great det går fremad, men jeg har stadig problemet med den første Error, kan i hjælpe?
Avatar billede justice Nybegynder
06. maj 2002 - 17:28 #10
SelectDirectories(), hvordan skal jeg bruge den?
Avatar billede d34c0n Praktikant
06. maj 2002 - 17:28 #11
Hvad skal du bruge Talias til?

Ellers fjern den!
Avatar billede d34c0n Praktikant
06. maj 2002 - 17:33 #12
Måske kan det være fordi, du skal angive mere under Talias, f.eks.

TDate = record
    D: 1..31;
    M: TMonth;
    Y: 1900..1999;
Avatar billede justice Nybegynder
06. maj 2002 - 17:33 #13
Ok min ide var at lave 2 Comboboxes hvor man i den ene kunne vælge tast og den anden en funktion. Når man så trykkede på en knap "opdater" skulle de tilføjes i memofeltet.
Eksempel:
Bind "DenValgteTast" "Funktionen"
Min lærer mente at det var nødvendigt med en Record, for at jeg kunne tilføje disse informationer.
Avatar billede justice Nybegynder
06. maj 2002 - 17:34 #14
Jepper
Avatar billede d34c0n Praktikant
06. maj 2002 - 17:35 #15
2 sek., jeg kigger lige på det!
Avatar billede d34c0n Praktikant
06. maj 2002 - 17:44 #16
Placer en THotKey og prøv så noget med dette:

if key = HotKey1.HotKey then // (det den skal udføre hvis man trykker på de keyen...).
Avatar billede justice Nybegynder
06. maj 2002 - 17:52 #17
Jeg er ikke lige med på hvad det skal gøre godt for? Hvad er der galt når den siger:

[Error] Unit1.pas(29): Type 'Talias' needs finalization - not allowed in file type

og jeg skal bruge Talias, da jeg både har
  Tast og funktion under den nu
Avatar billede justice Nybegynder
06. maj 2002 - 18:01 #18
Endnu et spørgsmål, fra Newbien'... Kan jeg få programmet til at tilføje mine valg fra de to comboboxes til memo feltet, valget i comboboksen er bare et navn og ikke selve funktionen.

Eks.:
Jeg vælger tasten "F1" og "funktionen Buy MP5 + ammo + armor" :

Kommandoen der skal stå i memofeltet bliver da:
Bind "F1" "buy; menuselect 3; menuselect 1; buy; menuselect 6; buyequip; menuselect 2; buyequip; menuselect 1;"
Avatar billede justice Nybegynder
06. maj 2002 - 18:04 #19
Den skal tilføje valgene når jeg tryker på knappen opdater.
Avatar billede d34c0n Praktikant
06. maj 2002 - 18:40 #20
justice, hvad er det du laver og hvem er din lærer?
Avatar billede justice Nybegynder
06. maj 2002 - 18:42 #21
Går på HTx i Grindsted, min lærer kender du nok ikke, men han hedder Kaj Jepsen
Avatar billede d34c0n Praktikant
06. maj 2002 - 18:44 #22
Underviser han i Delphi?

Jeg bor i Aalborg!
Avatar billede justice Nybegynder
06. maj 2002 - 18:45 #23
Jeg kan som sagt ikke få programmet til at virke og jeg skal aflevere i morgen. Men får jeg det ikke til at virke skal jeg bare forklare mig vej ud af det :)
Avatar billede justice Nybegynder
06. maj 2002 - 18:46 #24
Jo det gjorde han i år.. Det var første år holdet blev oprettet, så kvaliteten har været lidt lav.
Avatar billede d34c0n Praktikant
06. maj 2002 - 18:47 #25
Okay...
Avatar billede justice Nybegynder
06. maj 2002 - 18:49 #26
Som du nok kan se er det en Counter-Strike alias binder jeg skal lave, men det går ikke så godt :(

Programmet vil bare ikke virke. grr.. Men nu er jeg også n00b
Avatar billede d34c0n Praktikant
06. maj 2002 - 18:49 #27
Hmmm... du gider ikke sende projektet, så kan jeg kigge på det?
Avatar billede justice Nybegynder
06. maj 2002 - 18:51 #28
Det er valgfrit..
Avatar billede d34c0n Praktikant
06. maj 2002 - 18:52 #29
Hvad skal det sige?
Avatar billede justice Nybegynder
06. maj 2002 - 18:52 #30
Har du ICQ?
Avatar billede d34c0n Praktikant
06. maj 2002 - 18:53 #31
Forresten... Har du et buy script til en Colt i CS som køber full ammo og armor, da jeg også selv spiller? :)
Avatar billede d34c0n Praktikant
06. maj 2002 - 18:54 #32
Jep... 147741921...
Avatar billede justice Nybegynder
06. maj 2002 - 18:54 #33
Jeg skulle selv finde et problem der kunne løses ved programmering. Jeg valgte at lave et program der kan lave controls til Counter-Strike, så slipper jeg nemlig for at sidde og programmere controls til mine venner :)
Avatar billede d34c0n Praktikant
06. maj 2002 - 18:55 #34
I så fald er mit ICQ-nummer: 147741921.
Avatar billede justice Nybegynder
06. maj 2002 - 18:56 #35
Buy script kan jeg godt fikse til dig, men meningen var at mit program skulle ordne det :)
Avatar billede d34c0n Praktikant
06. maj 2002 - 18:57 #36
hmm.. det kunne egentlig være fedt at lave i  et program..
Avatar billede cpjg Nybegynder
08. maj 2002 - 09:14 #37
Du kan loade en fil ind med følgende kommando:
memo1.lines.loadfromfile('config.cfg');
så redigerer du den, og gemmer filen på følgende måde:
memo1.lines.savetofile('config.cfg');
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester